CP/M macro ASSEM 2.0 



#001 



'** Cbios For CP/M Ver. 2.2 *** 



* CBIOS FOR CP/M VER 2.2 FOR DISK JOCKEY 2D CONTROLLER (ALL 

* REVS, AND MODELS A & B) . HANDLES DISKETTES WITH SECTOR SIZES 

* OF 128 BYTES SINGLE DENSITY, 256, 512, 1024 BYTES DOUBLE 

* DENSITY. THERE ARE CONDITIONAL ASSEMBLIES FOR DISKUS HARD 

* DISK CONTROLLER. 

* WRITTEN BY BOBBY DALE GIFFORD. 

* 12/8/80 
* 



* CUSTOMIZED BY JAY O'BRIEN 

* 1/16/82 

* DISK MAP OF SECTORS USED BY COLD BOOT, WARM BOOT, 

* AND CP/M: 



FIRMWARE, 



* 


TRK SEC 


1 


ss 


FIRST SECTOR OF COLD BOOT 


* 





2 


= 


COLD BOOT 256. 


* 





3 


= 


COLD BOOT 512. 


* 





4 


= 


COLD BOOT 1024. 


* 





5 


= 


WARM BOOT 256. 


* 





6 


= 


WARM BOOT 512. 


* 





7 


= 


WARM BOOT 1024. 


* 





8 


= 


COLD/WARM BOOT. 


* 





9 


= 


FIRMWARE. 


* 





10 


= 


FIRMWARE+80H. 


* 





11 


= 


FIRMWARE+100H 


* 





12 


= 


FIRMWARE+180H. 


* 





13 


s 


FIRMWARE+200H. 


* 





14 


= 


FIRMWARE+280H. 


* 





15 


= 


FIRMWARE+300H. 


* 





16 


= 


FIRMWARE+380H. 


* 





17 


= 


CCP. 


* 





10 


= 


CCP+80H. 


* 





12 


= 


CCP+100H. 


* 





14 


= 


CCP+180H. 


* 





16 


= 


CCP+200H. 


* 





18 


= 


CCP+280H. 


* 





20 


= 


CCP+300H. 


* 





22 


= 


CCP+330H. 


* 





24 


= 


CCP+400H. 


* 





26 


= 


CCP+480H . 


* 
* 


1 




= 


REST OF CP/M. 


****************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

r*************** 
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E680H 

E700H 

E780H 
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2B80H 

2C00H-4FFFH 
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1 lA 



TITLE 



•*** cbios For CP/M Ver. 2.2 ***' 



***************************************************************** 

* * 

* THE FOLLOWING REVISION NUMBER IS IN REFERENCE TO THE CP/M * 

* 2.2 CBIOS. * 

* * 
***************************************************************** 
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001C = 
0016 = 



REVNUM EQU 23 
CPMREV EQU 22 



? CBIOS REVISION NUMBER 
;CP/M REVISION NUMBER 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET UP THE RELATIONSHIP BETWEEN THE * 

* 2D FLOPPIES AND THE HARD DISK CONTROLLERS. * 

* * 

***************************************************************** 



0000 



0001 
0002 

0001 
0000 
0000 



FIRST EQU 







0001 = 



MAXHD 


EQU 


1 


MAXFLOP 


EQU 


2 


M26 


EQU 


1 


M20 


EQU 





M10 


EQU 







IF 


M10 OR M20 


S DELAY 


EQU 
ELSE 





S DELAY 


EQU 
END IF 


1 



= FLOPPIES ARE A,B,C,D DRIVES AND 

HARD DISK ARE E,F,G,H 

1 = HARD DISKS ARE A,B,C,D DRIVES AND 

FLOPPIES ARE E,F,G,H 
SET TO NUMBER OF HARD DISKS 
SET TO NUMBER OF FLOPPIES 

;SET ONLY ONE OF THESE VARIABLES 



; SOFTWARE HEAD SETTLE DELAY (0 - NO, 1 = YES) 



001A 
0003 
0020 



MREV EQU 
LOGDSK EQU 
HDSPT EQU 



26*M26+20*M20+10*M10 

3*M26+3*M20+2*M10 

32*M26+21*M20+21*M10 



;HARD DISK TYPE 

; LOGICAL DISKS PER DRIVE 

; SECTORS PER TRACK 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES RELATE THE THINKER TOYS 2D CONTROLLER. * 

* IF THE CONTROLLER IS NON STANDARD (0E000H) ONLY THE ORIGIN * 

* EQUATE NEED BE CHANGED. THIS VERSION OF THE CBIOS WILL WORK * 

* WITH 2D CONTROLLER BOARDS REV 0, 1, 3, 3.1, 4, MODEL B. * 

* * 
***************************************************************** 









IF 


MAXFLOP NE ; 


•INCLUDE DISCUS 


E000 


= 


ORIGIN 


EQU 


0E000H 








E400 


= 


DJRAM 


EQU 


ORIGIN+400H 


•DISK 


JOCKEY 


2D 


E400 


ss 


DJBOOT 


EQU 


DJRAM 


•DISK 


JOCKEY 


2D 


E003 


= 


DJCIN 


EQU 


ORIGIN+3H 


•DISK 


JOCKEY 


2D 


E006 


as 


DJCOUT 


EQU 


ORIGIN+6H ; 


•DISK 


JOCKEY 


2D 


E409 


= 


DJHOME 


EQU 


DJRAM+9H 


•DISK 


JOCKEY 


2D 


E40C 


= 


DJTRK 


EQU 


DJRAM+0CH ; 


•DISK 


JOCKEY 


2D 


E40F 


=5 


DJSEC 


EQU 


DJRAM+0FH ; 


•DISK 


JOCKEY 


2D 


E412 


= 


DJDMA 


EQU 


DJRAM+012H "; 


•DISK 


JOCKEY 


2D 


E415 


as 


DJREAD 


EQU 


DJRAM+1 5H ; 


•DISK 


JOCKEY 


2D 


E418 


= 


DJWRITE 


EQU 


DJRAM+18H ; 


•DISK 


JOCKEY 


2D 


E41B 


= 


DJSEL 


EQU 


DJRAM+1BH ; 


•DISK 


JOCKEY 


2D 


E021 


= 


DJTSTAT 


EQU 


ORIGIN+21H i 


•DISK 


JOCKEY 


2D 



RAM ADDRESS 
INITIALIZATION 
CHARACTER INPUT ROUTINE 
CHARACTER OUTPUT ROUTINE 
TRACK ZERO SEEK 
TRACK SEEK ROUTINE 
SET SECTOR ROUTINE 
SET DMA* ADDRESS 
READ ROUTINE 
WRITE ROUTINE 
SELECT DRIVE ROUTINE 
TERMINAL STATUS ROUTINE 
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*** Cbios For CP/M Ver. 2.2 *** 



E427 = 


DJSTAT 


EQU 


DJRAM+27H 


E42A = 


DJERR 


EQU 


DJRAM+2AH 


E42D - 


DJDEN 


EQU 


DJRAM+2DH 


E430 = 


DJSIDE 


EQU 


DJRAM+30H 


0008 = 


DBLSID 


EQU 
ENDIF 


8 



;DISK JOCKEY 2D STATUS ROUTINE 
;DISK JOCKEY 2D ERROR, FLASH LED 
;DISK JOCKEY 2D SET DENSITY ROUTINE 
7 DISK JOCKEY 2D SET SIDE ROUTINE 
?SIDE BIT FROM CONTROLLER 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES ARE FOR THE DISKUS HARD DISK WANTED. * 

* * 

***************************************************************** 



0050 
0050 
0050 
0053 
0052 
0051 
0051 
0002 
0001 
0002 
0004 
0008 
0010 
0020 
0040 
0004 
00FB 
0004 
0200 
000F 
000B 
0005 
0007 
00F7 
00FC 
0000 
0008 
0001 
0005 





IF 


MAXHD NE 


HDORG 


EQU 


50H 


HDSTAT 


EQU 


HDORG 


HDCNTL 


EQU 


HDORG 


HDDATA 


EQU 


HDORG+3 


HDFUNC 


EQU 


HDORG+2 


HDCMND 


EQU 


HDORG+1 


HDRESLT 


EQU 


HDORG+1 


RETRY 


EQU 


2 


TKZERO 


EQU 


1 


OPDONE 


EQU 


2 


COMPLT 


EQU 


4 


TMOUT 


EQU 


8 


WFAULT 


EQU 


10H 


DRVRDY 


EQU 


20H 


INDEX 


EQU 


40H 


PSTEP 


EQU 


4 


NSTEP 


EQU 


0FBH 


HDRLEN 


EQU 


4 


SECLEN 


EQU 


512 


WENABL 


EQU 


0FH 


WRESET 


EQU 


0BH 


SCENBL 


EQU 


5 


DSKCLK 


EQU 


7 


MDIR 


EQU 


0F7H 


NULL 


EQU 


0FCH 


IDBUFF 


EQU 





ISBUFF 


EQU 


8 


RSECT 


EQU 


1 


WSECT 


EQU 
ENDIF 


5 



WANT HARD DISK INCLUDED ? 

HARD DISK CONTROLLER ORIGIN 

HARD DISK STATUS 

HARD DISK CONTROL 

HARD DISK DATA 

HARD DISK FUNCTION 

HARD DISK COMMAND 

HARD DISK RESULT 

RETRY BIT OF RESULT 

TRACK ZERO BIT OF STATUS 

OPERACTION DONE BIT OF STATUS 

COMPLETE BIT OF STATUS 

TIME OUT BIT OF STATUS 

WRITE FAULT BIT OF STATUS 

DRIVE READY BIT OF STATUS 

INDEX BIT OF STATUS 

STEP BIT OF FUNCTION 

STEP BIT MASK OF FUNCTION 

SECTOR HEADER LENGTH 

SECTOR DATA LENGTH 

WRITE ENABLE 

WRITE RESET OF FUNCTION 

CONTROLLER CONTROL 

DISK CLOCK FOR CONTROL 

DIRECTION MASK FOR FUNCTION 

NULL COMMAND 

INITIALIZE DATA COMMAND 

INITIALIZE HEADER COMMAND 

READ SECTOR COMMAND 

WRITE SECTOR COMMAND 



***************************************************************** 

* * 

* CP/M SYSTEM EQUATES. IF RECONFIGURATION OF THE CP/M SYSTEM * 

* IS BEING DONE, THE CHANGES CAN BE MADE TO THE FOLLOWING * 

* EQUATES. * 

* * 
***** * * ********* ***** * ******* ***** * ** * * ***** *********** * * ********* 



0038 
9000 
B700 



MSIZE EQU 
BIAS EQU 
CCP EQU 



56 .-MEMORY SIZE OF TARGET CP/M 

(MSIZE-20)*1024 ;MEMORY OFFSET FROM 20K SYSTEM 
2700H+BIAS ^CONSOLE COMMAND PROCESSOR 
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*** Cbios For CP/M Ver. 2.2 *** 



BF00 - 
CD00 = 
5A00 = 

0004 = 
0080 = 
0100 = 
00C0 = 
0003 = 
0000 = 

0005 = 



BDOS EQU 
BIOS EQU 
OFFSETC EQU 
CDISK EQU 
BUFF EQU 
TPA EQU 
INTIOBY EQU 
IOBYTE EQU 
WBOT EQU 
ENTRY EQU 



CCP+800H 

CCP+1600H 

2700H-BIOS 

4 

80H 

192 £*.*#- 

3 M 1 

^ 

5 



;BDOS ADDRESS 

? CBIOS ADDRESS 

; OFFSET FOR SYSGEN 

; ADDRESS OF LAST LOGGED DISK 

7 DEFAULT BUFFER ADDRESS 

? TRANSIENT MEMORY 

? INITIAL IOBYTE 

j IOBYTE LOCATION 

7 WARM BOOT JUMP ADDRESS 

?BDOS ENTRY JUMP ADDRESS 



***************************************************************** 

* * 

* THE FOLLOWING ARE INTERNAL CBIOS EQUATES. MOST ARE MISC. * 

* CONSTANTS. * 

* * 

***************************************************************** 



000A = 
000D = 
000A = 
0019 = 
0003 = 
0006 = 
E800 = 



RETRIES EQU 10 

ACR EQU 0DH 

ALF EQU 0AH 

CLEAR EQU -*9ir* //? M 

AETX EQU 3 

AACK EQU 6 

M5DV"" EQU -43E&00H 

***************************** 

* 



;MAX RETRIES ON DISK I/O BEFORE ERROR 

;A CARRIAGE RETURN 

;A LINE FEED 

; CLEAR SCREEN FOR -MSDV t/0- \ 

;ETX CHARACTER 

;ACK CHARACTER 

? VIDEO P RTVETTFOR MSDV-100 VTDEO BOARD 

************ *yc * * * ********i 



f** ********* 

* 

* THE JUMP TABLE BELOW MUST REMAIN IN THE SAME ORDER, THE * 

* ROUTINES MAY BE CHANGED, BUT THE FUNCTION EXECUTED MUST BE * 

* THE SAME. * 

* * 

***************************************************************** 



CD00 



ORG 



BIOS 



; CBIOS STARTING ADDRESS 



CD00 


C3D2D5 




JMP 


CBOOT 




CD03 


C3B4CE 


WBOOTE 


JMP 


WBOOT 




CD06 


C336CD 




JMP 


CONST 




CD09 


C342CD 




JMP 


CON IN 




CD0C 


C357CD 


COUT 


JMP 


CONOUT 




CD0F 


C377CD 




JMP 


LIST 




CD12 


C36CCD 




JMP 


PUNCH 




CD15 


C362CD 




JMP 


READER 




CD18 


C349CF 




JMP 


HOME 




CD1B 


C38BCF 




JMP 


SETDRV 




CD1E 


C34BCF 




JMP 


SETTRK 




CD21 


C33DCF 




JMP 


SETSEC 




CD24 


C343CF 




JMP 


SETDMA 




CD27 


C391D0 




JMP 


READ 




CD2A 


C38AD0 




JMP 


WRITE 




CD2D 


C382CD 


' ^ ,i 


JMP 


LISTST 




CD30 


C350CF 




JMP 


SECT RAN 










IF 


MAXFLOP NE 





CD33 


C31BE4 


DJDRV 


JMP 


DJSEL 





COLD BOOT ENTRY POINT 

WARM BOOT ENTRY POINT 

CONSOLE STATUS ROUTINE 

CONSOLE INPUT 

CONSOLE OUTPUT 

LIST DEVICE OUTPUT 

PUNCH DEVICE OUTPUT 

READER DEVICE INPUT 

HOME DRIVE 

SELECT DISK 

SET TRACK 

SET SECTOR 

SET DMA ADDRESS 

READ THE DISK 

WRITE THE DISK 

LIST DEVICE 'STATUS 

SECTOR TRANSLATION 



;HOOK FOR SINGLE.COM PROGRAM 
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ELSE 

JMP DONOP 

ENDIF 

***************************************************************** 

* * 

* TERMINAL DRIVER ROUTINES. IOBYTE IS INITIALIZED BY THE COLD * 

* BOOT ROUTINE, TO MODIFY, CHANGE THE "INTIOBY" EQUATE. THE * 

* I/O ROUTINES THAT FOLLOW ALL WORK EXACTLY THE SAME WAY. USING * 

* IOBYTE, THEY OBTAIN THE ADDRESS TO JUMP TO IN ORDER TO EXECUTE* 

* THE DESIRED FUNCTION. THERE IS A TABLE WITH FOUR ENTRIES FOR * 

* EACH OF THE POSSIBLE ASSIGNMENTS FOR EACH DEVICE. TO MODIFY * 

* THE I/O ROUTINES FOR A DIFFERENT I/O CONFIGURATION, JUST 

* CHANGE THE ENTRIES IN THE TABLES. 
* 



* 
* 
* 
***************************************************************** 



E003 = 
E006 = 



CITTY EQU 
COTTY EQU 



DJCIN 
DJCOUT 



? INPUT FROM THE DISK JOCKEY 2D 
j OUTPUT TO THE DISK JOCKEY 2D 



***************************************************************** 

* * 

* CONST: GET THE STATUS FOR THE CURRENTLY ASSIGNED CONSOLE * 

* DEVICE. THE CONSOLE DEVICE CAN BE GOTTEN FROM IOBYTE, * 

* THEN A JUMP TO THE CORRECT CONSOLE STATUS ROUTINE IS * 

* PERFORMED. * 

* * 
***************************************************************** 



CD36 21B0CD 
CD39 C348CD 



CONST 



LXI 
JMP 



H,CSTBLE 
CONIN1 



; BEGINNING OF JUMP TABLE 
; SELECT CORRECT JUMP 



***************************************************************** 

* * 

* CSREADER: IF THE CONSOLE IS ASSIGNED TO THE READER THEN A 

* JUMP WILL BE MADE HERE, WHERE ANOTHER JUMP WILL 

* OCCUR TO THE CORRECT READER STATUS. 
* 

***************************************************************** 



CD3C 21B8CD 
CD3F C365CD 



CSREADR LXI 
JMP 



H,CSRTBLE 
READERA 



; BEGINNING OF READER STATUS TABLE 



***************************************************************** 

* * 

* CONIN: TAKE THE CORRECT JUMP FOR THE CONSOLE INPUT ROUTINE. * 

* THE JUMP IS BASED ON THE TWO LEAST SIGNIFICANT BITS OF * 

* IOBYTE. * 

* * 

***************************************************************** 



CD42 CD04D1 
CD45 2188CD 



CONIN CALL 
LXI 



FLUSH 
H,CITBLE 



; FLUSH THE DISK BUFFER 

; BEGINNING OF CHARACTER INPUT TABLE 



* ENTRY AT CONIN1 WILL DECODE THE TWO LEAST SIGNIFICANT BITS 
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* OF IOBYTE. THIS IS USED BY CONIN, CONOUT, AND CONST. 



CD48 3A0300 
CD4B 17 



CONIN1 LDA 
RAL 



IOBYTE 



* ENTRY AT SELDEV WILL FORM AN OFFSET INTO THE TABLE POINTED 

* TO BY H&L AND THEN PICK UP THE ADDRESS AND JUMP THERE. 

* 



CD4C E606 SELDEV ANI 


6H 


CD4E 1600 


MVI 


D,0 


CD50 5F 


MOV 


E,A 


CD51 19 


DAD 


D 


CD52 7E 


MOV 


A,M 


CD53 23 


I NX 


H 


CD54 66 


MOV 


H,M 


CD55 6F 


MOV 


L,A 


CD56 E9 


PCHL 





; STRIP OFF UNWANTED BITS 
;FORM OFFSET 

;ADD OFFSET 

;PICK UP HIGH BYTE 

;PICK UP LOW BYTE 
;FORM ADDRESS 
;GO THERE i 



***************************************************************** 

* * 

* CONOUT: TAKE THE PROPER BRANCH ADDRESS BASED ON THE TWO LEAST * 

* SIGNIFICANT BITS OF IOBYTE. * 

* * 
***************************************************************** 



CD57 C5 
CD58 CD04D1 
CD5B CI 
CD5C 2190CD 
CD5F C348CD 



CONOUT PUSH B 

CALL FLUSH 

POP B 

LXI H, COTBLE 

JMP CONIN1 



;SAVE THE CHARACTER 

; FLUSH THE DISK BUFFER 

; RESTORE THE CHARACTER 

j BEGINNING OF THE CHARACTER OUT TABLE 

7 DO THE DECODE 



***************************************************************** 

* * 

* READER: SELECT THE CORRECT READER DEVICE FOR INPUT. THE * 

* READER IS SELECTED FROM BITS 2 AND 3 OF IOBYTE. * 

* * 
***************************************************************** 



CD62 21A8CD 



READER LXI 



H, RTBLE 



; BEGINNING OF READER INPUT TABLE 



* ENTRY AT READERA WILL DECODE BITS 2 & 3 OF IOBYTE, USED 

* BY CSREADER. 

* 



CD65 3A0300 



READERA LDA 



IOBYTE 



* ENTRY AT READERl WILL SHIFT THE BITS INTO POSITION, USED 

* BY LIST AND PUNCH. 

* 



CD68 IF 



READR1 RAR 
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CD69 C34CCD 



JMP 



SELDEV 



***************************************************************** 

* * 

* PUNCH: SELECT THE CORRECT PUNCH DEVICE. THE SELECTION COMES * 

* FROM BITS 4&5 OF IOBYTE. * 

* * 
***************************************************************** 



CD6C 21A0CD 
CD6F 3A0300 



PUNCH LXI 
LDA 



H,PTBLE 
IOBYTE 



; BEGINNING OF PUNCH TABLE 



* ENTRY AT PNCH1 ROTATES BITS A LITTLE MORE IN PREP FOR 

* SELDEV, USED BY LIST. 
* 



CD72 IF 
CD73 IF 
CD74 C368CD 



PNCH1 RAR 
RAR 
JMP 



READR1 



***************************************************************** 
* * 

* 
* 
***************************************************************** 



* LIST: SELECT A LIST DEVICE BASED ON BITS 6&7 OF IOBYTE 
* 



CD77 2198CD 
CD7A 3A0300 
CD7D IF 
CD7E IF 
CD7F C372CD 



LIST LXI 

LIST1 LDA 

RAR 

RAR 

JMP 



H,LTBLE 
IOBYTE 



PNCH1 



.•BEGINNING OF THE LIST DEVICE ROUTINES 



***************************************************************** 

* * 

* LISTST: GET THE STATUS OF THE CURRENTLY ASSIGNED LIST DEVICE * 

* * 

****************************************************************** 



CD82 21C0CD 
CD85 C37ACD 



LISTST LXI 
JMP 



H, LSTBLE 
LIST1 



; BEGINNING OF THE LIST DEVICE STATUS 



***************************************************************** 

* * " *" 

* IF CUSTOMIZING I/O ROUTINES IS BEING PERFORMED, THE TABLE * 

* BELOW SHOULD BE MODIFIED TO REFLECT THE CHANGES. ALL i/O * 

* DEVICES ARE DECODED OUT OF IOBYTE AND THE JUMP IS TAKEN FROM * 

* THE FOLLOWING TABLES. * 

* * 

****************** * * * ************** * * * * * * * * * ********************** 



* CONSOLE INPUT TABLE 
* 



CD88 F6CD 



CITBLE DW 



CIUC1 



.•INPUT FROM USER CONSOLE 1 (CURRENTLY 
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CD8A 0BCE 
CD8C 62CD 
CD8E 03E0 



DW 


CICRT 


DW 


READER 


DW 


CITTY 



SWBD PARALLEL PORT 4) 
INPUT FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
INPUT FROM READER (DEPENDS ON READER 

SELECTION) 
INPUT FROM TTY (CURRENTLY INPUT FROM 

DISK JOCKEY 2D) 







* 
* 


CONSOLE OUTPUT TABLE 


CD90 


C8CD 


COTBLE 


DW 


COCRT 


CD92 


C8CD 






DW 


COCRT ; 


CD94 


77CD 






DW 


LIST 


CD96 


06E0 






DW 


COTTY ; 



OUTPUT TO CRT (MSDV) 
OUTPUT TO CRT (MSDV) 

OUTPUT TO LIST DEVICE (DEPENDS ON 
BITS 6&7 OF IOBYTE) 

OUTPUT TO TTY (CURRENTLY OUTPUT TO 
DISK JOCKEY 2D) 



* LIST DEVICE TABLE 

* 



CD98 06E0 
CD9A 3ECE 
CD9C CCCD 
CD9E D7CD 



LTBLE 



DW 


COTTY 


DW 


COPTR 


DW 


COLPT 


DW 


COUL1 



OUTPUT TO TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER 

OUTPUT TO LINE PRINTER (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER LINE PRINTER 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 







* PUNCH 
* 


DEVICE 


TABLE 


CDA0 


06E0 


PTBLE 


DW 


COTTY 


CDA2 


3ECE 




DW 


COPTR 


CDA4 


CCCD 




DW 


COUP1 


CDA6 


CCCD 




DW 


COUP 2 






* 

* READER DEVICE 
* 


INPUT 


CDA8 


03E0 


RTBLE 


DW 


CITTY 


CDAA 


0BCE 




DW 


CIPTR 


CDAC 


0BCE 




DW 


CIUR1 



OUTPUT TO THE TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER 

OUTPUT TO USER PUNCH 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER PUNCH 2 (CURRNTLLY 
SWITCHBOARD SERIAL PORT 1) 



INPUT FROM TTY (CURRENTLY ASSIGNED 

" BY INTIOBY, INPUT FROM 2D) 
INPUT FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
INPUT FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
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CIUR2 



7 INPUT FROM USER READER 2 (CURRENTLY 
; SWITCHBOARD SERIAL PORT 1) 







* 
* 


CONSOLE STATUS TABLE 


CDB0 


02CE 


CSTBLE 


DW 


CSUC1 


CDB2 


1FCE 






DW 


CSCRT 


CDB4 


3CCD 






DW 


CSREADR 


CDB6 


17CE 






DW 


CSTTY 



* STATUS FROM READER DEVICE 



STATUS FROM SWBD PARALLEL PORT 4, AS 

READ FROM ATTN BIT 0) 
STATUS FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
STATUS FROM READER (DEPENDS ON READER DEVICE ) 

STATUS OF TTY (CURRENTLY STSTUS FROM 
DISK JOCKEY 2D) 



CDB8 


I7CE 


CSRTBLE 


DW 


CSTTY 


CDBA 


1FCE 




DW 


CSPTR 


CDBC 


1FCE 




DW 


CSUR1 


CDBE 


1FCE 




DW 


CSUR2 



STATUS FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, STATUS OF 2D) 
STATUS FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS OF USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



* STATUS FROM LIST DEVICE 
* 



CDC0 


2DCE 


LSTBLE 


DW 


READY 


CDC2 


2DCE 




DW 


READY 


CDC4 


28CE 




DW 


LSLPT 


CDC6 


28CE 




DW 


LSLPT 



; CONSOLE ALWAYS READY 
;GET LIST STATUS 



***************************************************************** 

* * 

* ROUTINES FOR MY SYSTEM. J. J. O'BRIEN * 

* * 

***************************************************************** 



* MSDV VIDEO DRIVER 

* 



CDC8 79 
CDC9 C300E8 



COCRT 



MOV 
JMP 



A,C 
MSDV 



;MSDV WANTS DATA IN A 
;GO THERE 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET OUTPUT tiEVlCE TO OUTPUT TO THE * 

* SWITCHBOARD SERIAL PORT 1. * 



CP/M MACRO ASSEM 2.0 #010 *** Cbios For CP/M Ver. 2.2 *** 



* * 

***************************************************************** 



CDCC = 


COPTP 


EQU 


$ 


CDCC = 


COUP1 


EQU 


$ 


CDCC = 


COUP2 


EQU 


$ 


CDCC DB02 


COLPT 


IN 


2 


CDCE E680 




ANI 


80H 


CDD0 CACCCD 




JZ 


COLPT 


CDD3 79 




MOV 


A,C 


CDD4 D301 




OUT 


1 


CDD6 C9 




RET 





; OUTPUT FROM PAPER TAPE PUNCH 

; OUTPUT FROM USER PUNCH 1 

; OUTPUT FROM USER PUNCH 2 

; OUTPUT FROM LINE PRINTER, GET STATUS 

,-WAIT UNTIL OK TO SEND 

; OUTPUT THE CHARACTER 



***************************************************************** 

* * 

* CUSTOM I/O PRINTER DRIVER FOR DIABLO PRINTER WITH 1200 BAUD * 

* ETX/ACK HANDSHAKE. * 

* * 
***************************************************************** 



0/,yiT I* 



o* 



gd4J » 



if 






(Vf I 






y^ertfb 



$r f 



CDD7 


CDCCCD 


COUL1 


CALL 


COLPT 


CDDA 


3AF5CD 




LDA 


COUNT 


CDDD 


3D 




DCR 


A 


CDDE 


32F5CD 




STA 


COUNT 


CDE1 


C0 




RNZ 




CDE2 


3E4E 




MVI 


A,78 


CDE4 


32F5CD 




STA 


COUNT 


CDE7 


0E03 




MVI 


CAETX 


CDE9 


CDCCCD 




CALL 


COLPT 


CDEC 


CD0BCE 


>PWA-KP 


- -CALL - 


CIPTR 


CDEF 


FE06 




CPI 


AACK 


CDF1 


C2ECCD 




JNZ 


PWAIT 


CDF4 


C9 


/ 


RET 




CDF 5 


32 


COUNT 


DB 


50 



; OUTPUT THE CHARACTER 



**************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT TO COME FROM THE SWBD * 

* PARALLEL PORT 4, WITH STATUS ON ATTENTION PORT BIT 0. * 

* * 

**************************************************************** 




;GET ATTENTION BYTE 
;GET BIT ONLY 
;WAIT FOR CHARACTER 
;GET CHARACTER 
; STRIP OFF THE PARITY 



;GET ATTENTION BYTE 

;GET BIT ONLY 

; CHANGE POLARITY 

; RETURN PROPER INDICATION 



***************************************************************** 



CDF6 DB03 
CDF8 E601 
CDFA CAF6CD 
CDFD DB04 
CDFF E67F 
CE01 C9 


CIUCl 


IN 

ANI 

JZ 

IN 

ANI 

RET 


3 
1 

CIUCl 

4 

7FH 


CE02 DB03 
CE04 E601 
CE06 EE01 
CE08 C31ACE 


CSUC1 


IN 
ANI 
XRI 
JMP 


3 
1 
1 
STAT 




7tjof< > /</(■ ■//*■■* I 



I 



CP/M MACRO ASSEM 2.0 #011 *** Cbios For CP/M Ver. 2.2 *** 



* * 

* THE FOLLOWING EQUATES SET THE INPUT FROM THE DEVICES TO COME * 

* FROM THE SWITCHBOARD SERIAL PORT 1. * 

* * 

***************************************************************** 



; INPUT FROM CRT 

; INPUT FROM USER READER 1 

; INPUT FROM USER READER 2 

; INPUT FROM PAPER TAPE READER, GET STATUS 

?WAIT FOR CHARACTER 



CE0B 


= 


CICRT 


EQU 


$ 


CE0B 


= 


CIUR1 


EQU 


$ 


CE0B 


= 


CIUR2 


EQU 


$ 


CE0B 


DB02 


CIPTR 


IN 


2 


CE0D 


E640 




ANI 


40H 


CE0F 


CA0BCE 




JZ 


CIPTR 


CE12 


DB01 




IN 


1 


CE14 


E67F 




ANI 


7FH 


CE16 


C9 




RET 





; STRIP OFF THE PARITY 



***************************************************************** 

* * 

* CONSOLE STATUS ROUTINES, TEST IF A CHARACTER HAS ARRIVED. * 

* * 

> 

***************************************************************** 



CE17 CD21E0 
CE1A 3E00 
CE1C C0 
CE1D 3D 
CE1E C9 



CSTTY CALL DJTSTAT 
STAT MVI A,0 

RNZ 

DCR A 

RET 



; STATUS FROM DISK JOCKEY 2D 

;PREP FOR ZERO RETURN 

; NOTHING FOUND 

; RETURN WITH 0FFH 





CE1F 


ss 


CSUR1 


EQU 


$ 




CE1F 


= 


CSUR2 


EQU 


$ 




CE1F 


= 


CSPTR 


EQU 


$ 


efsr- 


-» CE1F 


DB02 


CSCRT 


IN 


2 


& ifh 


' CE21 


E640 




ANI 


40H 


( tftfQ'J 


CE23 


EE40 




XRI 


40H 




CE25 


C31ACE 




JMP 


STAT 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES CAUSE THE DEVICES TO GET STATUS FROM * 

* THE SWITCHBOARD SERIAL PORT 1. 
* 
************************************************************** 



; STATUS OF USER READER 1 

; STATUS OF USER READER 2 

; STATUS OF PAPER TAPE _ ^gADER 

; STATUS FROM CRT, GET gTATUS_ 

; STRIP OF DATA READY filTL~— -.- 

;MAKE CORRECT POLARIT?* 2 "^ 

; RETURN PROPER INDICATION 



***************************************************************! 

* * 

* LIST DEVICE STATUS ROUTINES. * 

* * 

***************************************************************** 



CE28 DB02 
CE2A E680 
CE2C C8 * 
CE2D 3EFF 
CE2F C9 



LSLPT 



READY 



****** 



IN 
ANI 

RZ ,: 
MVI 



2 

80H 

A,0FFH 



;ALL OTHER DEVICES WAIT 



\qoj> i^ r ^ ri 



rL 




70 f'S /L/'k k&u J 



"iFTr 



1 t/DH ®" 0* 






7/^o f x j ) 



(&e> 



(jt0 



*********************************************************** (i\C ' 



CP/M MACRO ASSEM 2.0 #012 *** Cbios For CP/M Ver. 2.2 *** 



* THIS INITIALLIZING ROUTINE SAMPLES BIT OF SWBD PORT 7 TO * 

* DETERMINE IF THE KEYBOARD IS PLUGGED IN. IF THE KEYBOARD IS * 

* PLUGGED IN, THE LSB RETURNS A 0. OTHERWISE, IT IS A 1. * 

* THIS 1 IS ADDED TO IOBYTE TO CHANGE THE CONSOLE INPUT FROM * 

* THE SWBD PARALLEL PORT 4 (THE KEYBOARD) TO THE SWBD SERIAL * 

* PORT THAT RECEIVES RS232 DATA FROM THE RS232 TERMINAL. * 

* * 



CE30 


0E19 


TINIT 


MVI 


C, CLEAR 


CE32 


DB07 




IN 


7 


CE34 


E601 




ANI 


1 


CE36 


C6C0 




ADI 


INTIOBY 


CE38 


320300 




STA 


IOBYTE 


CE3B 


C30CCD 




JMP 


COUT 



; INITIALIZE THE TERMINAL ROUTINE 
;GET KEYBOARD INTERLOCK BYTE 
;GET BIT 1 ONLY 
;ADD INTIOBY TO KEYBOARD BIT 
; INITIALIZE IOBYTE 



***************************************************************** 

* * 



* ROUTINE FOR OKIDATA PRINTER 

* PRINTER IS ON PORT WITH PRINTER READY ON PORT 5 BIT 1 



* 
***************************************************************** 



CE3E DB02 


COPTR 


IN 


2 


CE40 E608 




ANI 


8 


CE42 CA3ECE 




JZ 


COPTR 


CE45 DB05 


COPTR1 


IN 


5 


CE47 E601 




ANI 


1 


CE49 CA45CE 




JZ 


COPTR1 


CE4C 79 




MOV 


A,C 


CE4D D300 




OUT 





CE4F C9 




RET 





; INPUT FROM PORT 2 
;WAIT UNTIL OK TO SEND 

; BUFFER FULL? 

yWAIT UNTIL PRINTER READY 
; OUTPUT THE CHARACTER 



CE50 


218000 


CE53 


CD43CF 


CE56 


3EC3 


CE58 


320000 


CE5B 


320500 


CE5E 


2103CD 


CE61 


220100 


CE64 


2106BF 


CE67 


220600 


CE6A 


AF 


CE6B 


32FDD4 


CE6E 


3205D1 


CE71 


3A0400 


CE74 


4F 



***************************************************************** 

* * 

* GQCPM IS THE ENTRY POINT FROM COLD BOOTS, AND WARM BOOTS. IT * 

* INITIALIZES SOME OF THE LOCATIONS IN PAGE 0, AND SETS UP THE * 

* INITIAL DMA ADDRESS (80H). * 

* " * 

************************************************************** 



GOCPM 



LXI 


H,BUFF 


CALL 


SETDMA 


MVI 


A, (JMP) 


STA 


wioT 


STA 


ENTRY 


LXI 


H, WBOOTE 


SHLD 


WBOT+1 


LXI 


H, BDOS+6 


SHLD 


ENTRY+1 


XRA 


A 


STA 


BUFSEC 


STA 


BUFWRTN 


LDA 


CDISK 


MOV 


C,A 






;SET UP INITIAL DMA ADDRESS 

; INITIALIZE JUMP TO WARM BOOT 

; INITIALIZE JUMP TO BDOS 
.•ADDRESS IN WARM BOOT JUMP 

; ADDRESS IN BDOS JUMP 

;A '"<- 

?DISK JOCKEY BUFFER EMPTY 

;SET BUFFER NOT DIRTY FLAG 

;JUMP TO CP/M WITH CURRENTLY SELECTED DISK IN C 



CP/M MACRO ASSEM 2.0 #013 *** Cbios For CP/M Ver. 2.2 *** 



CE75 


3AA2CE 




LDA 


CWFLG 




CE78 


A7 




ANA 


A 




CE79 


11A4CE 




LXI 


D, COLDBEG 


.•BEGINNING OF INITIAL COMMAND 


CE7C 


3E0F 




MVI 


A, COLDEND- 


•COLDBEG+1 ; LENGTH OF COMMAND 


CE7E 


CA86CE 




JZ 


CLDCMND 




CE81 


11B3CE 




LXI 


D.WARMBEG 




CE84 


3E01 




MVI 


A,WARMEND- 


■WARMBEG+1 


CE86 


2108B7 


CLDCMND 


LXI 


H,CCP+8 


; COMMAND BUFFER 


CE89 


3207B7 




STA 


CCP+7 




CE8C 


47 




MOV 


B,A 




CE8D 


CDCCD1 




CALL 


MOVLOP 




CE90 


3AA2CE 




LDA 


CWFLG 




CE93 


A7 




ANA 


A 




CE94 


3AA3CE 




LDA 


AUTOFLG 




CE97 


CA9BCE 




JZ 


CLDBOT 




CE9A 


IF 




RAR 






CE9B 


IF 


CLDBOT 


RAR 






CE9C 


DA00B7 




JC 


CCP 




CE9F 


C303B7 




JMP 


CCP+3 


; ENTER CP/M 


CEA2 


00 


CWFLG 


DB 





r COLD/WARM BOOT FLAG 



***************************************************************** 

* * 

* THE FOLLOWING BYTE DETERMINES IF AN INITIAL COMMAND IS TO BE * 

* GIVEN TO CP/M ON WARM OR COLD BOOTS. THE VALUE OF THE BYTE IS * 

* USED TO GIVE THE COMMAND TO CP/M: * 

* * 

* 
* 
* 
* 
* 
***************************************************************** 



* = NEVER GIVE COMMAND. 

* 1 = GIVE COMMAND ON COLD BOOTS ONLY. 

* 2 = GIVE THE COMMAND ON WARM BOOTS ONLY. 

* 3 = GIVE THE COMMAND ON WARM AND COLD BOOTS. 
* 



CEA3 01 



AUTOFLG DB 



;AUTO COMMAND FEATURE 



***************************************************************** 

* * 

* IF THERE IS A COMMAND INSERTED HERE, IT WILL BE GIVEN IF THE * 

* AUTO FEATURE IS ENABLED. * 

* FOR EXAMPLE: * 

* * 

* 



* 
* 



COLDBEG DB 
COLDEND DB 



'MBASIC MYPROG' 




* WILL EXECUTE MICROSOFT BASIC, AND MBASIC WILL EXECUTE THE * 

* "MYPROG" BASIC PROGRAM. " " * 

* * 

***************************************************************** 



CEA4 5355424D49COLDBEG DB 
CEB2 00 COLDEND DB 

WARMBEG DB 
CEB3 00 WARMEND DB 



' SUBMIT STARTUP ' ; COLD BOOT COMMAND 


;WARM BOOT COMMAND GOES HERE 




CP/M MACRO ASSEM 2.0 #014 *** Cbios For CP/M Ver. 2.2 *** 

***************************************************************** 

* * 

* WBOOT LOADS IN ALL OF CP/M EXCEPT THE CBIOS, THEN INITIALIZES * 

* SYSTEM PARAMETERS AS IN COLD BOOT. SEE THE COLD BOOT LOADER * 

* LISTING FOR EXACTLY WHAT HAPPENS DURING WARM AND COLD BOOTS. * 

* * 

***************************************************************** 



CEB4 


310001 


WBOOT 


LXI 


SP,TPA 


CEB7 


3E01 




MVI 


A,l 


CEB8 


= 


WFLG 


EQU 


$-1 


CEB9 


A7 




ANA 


A 


CEBA 


3E01 




MVI 


A,l 


CEBC 


32B8CE 




STA 


WFLG 


CEBF 


32A2CE 




STA 


CWFLG 


CEC2 


CA50CE 




JZ 


GOCPM 


CEC5 


AF 




XRA 


A 


CEC6 


32B8CE 




STA 


WFLG 


CEC9 


4F 




MOV 

IF 

LXI 

PUSH 

STA 

MVI 

PUSH 

CALL 

MVI 

CALL 


C # A 

(MAXHD NE 0) AND 

H,CCP-200H 

H 

HEAD 

A, 4 

PSW 

HDDRV 

C,0 

HDTRK 






WARMLOD 


POP 
POP 
INR 

STA 

CPI 

JZ 

INR 

INR 

SHLD 


PSW 

H 

A 

HDSECTR 

16 

WBOOT 

H 

H 

HDADD 




■■ ■ ■ ■—» 




PUSH 
PUSH 


H 
PSW 






WARMRD 


LXI 


B, RETRIES* 100H+0 




f ! •'■ - ':■ ,'. ■„■ ■■ 


WRMREAD 


PUSH 

CALL 

POP 

JNC 

DCR 

JNZ 

HLT 

END IF 

IF 


. B .■ 
HDREAD 

WARMLOD 

" B : 
WRMREAD 

(MAXFLOP NE 0) Al 


CECA 


CD33CD 




CALL 


DJDRV 


CECD 


0E00 




MVI 


C,0 


CECF 


CD2DE4 




CALL 


DJDEN 


CED2 


0E00 




MVI 


C,0 


CED4 


CD30E4 




CALL 


DJSIDE 



;SET UP STACK POINTER 

;TEST IF BEGINNING OR 

ENDING A WARM BOOT 



;SET COLD/WARM BOOT FLAG 



FIRST y SUPPLY WARM BOOT FROM HARD DISK ? 
f INITIAL DMA ADDRESS 



•SAVE FIRST SECTOR 
•SELECT DRIVE A 



•HOME THE DRIVE 
^RESTORE SECTOR 
• RESTORE DMA ADDRESS 



rPAST BDOS ? 
rYES, ALL DONE 
(UPDATE DMA ADDRESS 



; RETRY, COUNTER 
•SAVE THE RETRY COUNT 
i READ THE SECTOR 

;TEST FOR ERRpR 

r UPDATE THE ERROR COUNT 

tKEEP TRYING IF NOT TO MANY ERRORS 

: CAN'T WARM BOOT 



; SELECT DRIVE A 

; SELECT SINGLE DENSITY 

; SELECT SIDE 



CP/M macro ASSEM 2.0 



CED7 


3E0F 


MVI 


A,15 


CED9 


32F7CE 


STA 


NEWSEC 


CEDC 


2100B6 


LXI 


H,CCP-100H 


CEDF 


2216CF 


SHLD 


NEWDMA 


CEE2 


CDF6CE 


CALL 


WARMLOD 


CEE5 


0100BC 


LXI 


B,CCP+500H 


CEE8 


CD12E4 


CALL 


DJDMA 


CEEB 


0E08 


MVI 


C,8 


CEED 


CD0FE4 


CALL 


DJSEC 


CEF0 


CD2ACF 


CALL 


WARMRD 


CEF3 


C303BC 


JMP 


CCP+503H 


CEF6 


3E0F 


WARMLOD MVI 


A, 15 


CEF7 


= 


NEWSEC EQU 


$-1 


CEF8 


3C 


INR 


A 


CEF9 


3C 


INR 


A 


CEFA 


FE1B 


CPI 


27 


CEFC 


DA0ECF 


JC 


NOWRAP 


CEFF 


D609 


SUI 


9 


CF01 


FE13 


CPI 


19 


CF03 


C8 


RZ 




CF04 


2A16CF 


LHLD 


NEWDMA 


CF07 


1180FB 


LXI 


D,-480H 


CF0A 


19 


DAD 


D 


CF0B 


2216CF 


SHLD 


NEWDMA 


CF0E 


32F7CE 


NOWRAP STA 


NEWSEC 


CF11 


4F 


MOV 


C,A 


CF12 


CD0FE4 


CALL 


DJSEC 


CF15 


2100B6 


LXI 


H,CCP-100H 


CF16 


s 


NEWDMA EQU 


?-2 


CF18 


110001 


LXI 


D,100H 


CF1B 


19 


DAD 


D 


CF1C 


2216CF 


SHLD 


NEWDMA 


CF1F 


44 


MOV 


B f H 


CF20 


4D 


MOV 


C,L 


CF21 


CD12E4 


CALL 


DJDMA 


CF24 


CD2ACF 


CALL 


WARMRD 


CF27 


C3F6CE 


JMP 


WARMLOD 


CF2A 


01000A 


WARMRD LXI 


B, RETRIES* 


CF2D 


C5 


WRMREAD PUSH 


B 


CF2E 


CD0CE4 


CALL 


DJTRK 


CF31 


CD15E4 


CALL 


DJREAD 


CF34 


CI 


POP 


B 


CF35 


D0 


RNC 




CF36 


05 


DCR 


B 


CF37 


C22DCF 


JNZ 


WRMREAD 


CF3A 


C32AE4 


JMP 
ENDIF 


DJERR 



#015 *** Cbios For CP/M Ver. 2.2 *** 

INITIALIZE THE SECTOR TO READ 

;AND THE DMA ADDRESS 

;READ IN CP/M 

;LOAD ADDRESS FOR REST OF WARM BOOT 



; PREVIOUS SECTOR 

; UPDATE THE PREVIOUS SECTOR 

;WAS IT THE LAST ? 

;YES 



;SAVE THE NEW SECTOR TO READ 

;GET THE PREVIOUS DMA ADDRESS 
; UPDATE THE DMA ADDRESS 
;SAVE THE DMA ADDRESS 

rSET THE DMA ADDRESS 



;SET THE TRACK 
;READ THE SECTOR 

; CONTINUE IF SUCCESSFUL 

yKEEP TRYING 



***************************************************************** 

* ■ I v • * 

* SETSEC JUST SAVES THE DESIRED SECTOR TO SEEK TO UNTIL AN * 

* ACTUAL READ OR WRITE IS ATTEMPTED. * 

* * 

***************************************************************** 



CP/M MACRO ASSEM 2.0 #016 *** Cbios For CP/M Ver. 2.2 *** 



CF3D 


60 


SETSEC 


MOV 


H,B 


CF3E 


69 




MOV 


L,C 


CF3F 


22F5D4 




SHLD 


CPMSEC 


CF42 


C9 


DONOP 


RET 





***************************************************************** 
* * 



* SETDMA SAVES THE DMA ADDRESS FOR THE DATA TRANSFER. 
* 

***************************************************************** 



* 
* 



CF43 


60 


SETDMA 


MOV 


H,B 


CF44 


69 




MOV 


L,C 


CF45 


22E5D0 




SHLD 


CPMDMA 


CF48 


C9 




RET 





;HL <- BC 

?CP/M DMA ADDRESS 



CF49 0E00 



***************************************************************** 

* * 

* HOME IS TRANSLATED INTO A SEEK TO TRACK ZERO. * 

* * 
***************************************************************** 



HOME 



MVI 



C,0 



; TRACK TO SEEK TO 



***************************************************************** 

* * 

* SETTRK SAVES THE TRACK # TO SEEK TO. NOTHING IS DONE AT THIS * 

* POINT, EVERYTHING IS DEFFERED UNTIL A READ OR WRITE. * 

* * 

***************************************************************** 



CF4B 


79 


SETTRK 


MOV 


A,C 


CF4C 


32F8D4 




STA 


CPMTRK 


CF4F 


C9 




RET 





CF50 3AF7D4 



CF53 FE02 
CF55 D287CF 



;A <- TRACK # 
;CP/M TRACK # 



***************************************************************** 

* * 

* SECTRAN TRANSLATES A LOGICAL SECTOR # INTO A PHYSICAL SECTOR * 

* #. * 

* * 
***************************************************************** 

(MAXHD NE 0) AND (MAXFLOP NE 0) ;BOTH TYPES ? 

;GET THE DRIVE NUMBER 

;OVER THE # OF HARD DISKS ? 

;OVER THE # OF FLOPPIES ? 



IF 


(MAXHD NE 0) 


SECTRAN LDA 


CPMDRV 


IF 


FIRST 


CPI 


MAXHD*LOGDSK 


JC 


TRANHD 


ELSE 




CPI 


MAXFLOP 


JNC 


TRANHD " 


ENDIF 




END IF 





IF 



(MAXHD EQ 0) OR (MAXFLOP EQ 0) ,• JUST ONE TYPE ? 



cp/m macro ASSEM 2.0 



#017 



*** Cbios For CP/M Ver. 2.2 *** 







SECTRAN 


EQU 
ENDIF 


$ 










IF 


MAXFLOP NE 





CF58 


03 


TRANFP 


I NX 


B 




CF59 


D5 




PUSH 


D 




CF5A 


C5 




PUSH 


B 




CF5B 


CD69D0 




CALL 


GETDPB 




CF5E 


7E 




MOV 


A,M 




CF5F 


B7 




ORA 


A 




CF60 


IF 




RAR 






CF61 


91 




SUB 


C 




CF62 


F5 




PUSH 


PSW 




CF63 


FA6FCF 




JM 


SIDETWO 




CF66 


Fl 


SIDE A 


POP 


PSW 




CF67 


CI 




POP 


B 




CF68 


Dl 




POP 


D 




CF69 


EB 


SIDEONE 


XCHG 






CF6A 


09 




DAD 


B 




CF6B 


6E 




MOV 


L,M 




CF6C 


2600 




MVI 


H,0 




CF6E 


C9 




RET 






CF6F 


010F00 


SIDETWO 


LXI 


B,15 




CF72 


09 




DAD 


B 




CF73 


7E 




MOV 


A,M 




CF74 


E608 




ANI 


8 




CF76 


CA66CF 




JZ 


SIDEA 




CF79 


Fl 




POP 


PSW 




CF7A 


CI 




POP 


B 




CF7B 


2F 




CMA 






CF7C 


3C 




INR 


A 




CF7D 


4F 




MOV 


C f A 




CF7E 


Dl 




POP 


D 




CF7F 


CD69CF 




CALL 


SIDEONE 




CF82 


3E80 




MVI 


A,80H 




CF84 


B4 




ORA 


H 




CF85 


67 




MOV 


H,A 




CF86 


C9 




RET 
ENDIF 

IF 


MAXHD NE 




CF87 


60 


TRANHD 


MOV 


H, B 




CF88 


69 




MOV 


L,C 




CF89 


23 




I NX 


H 




CF8A 


C9 




RET 
ENDIF 







? FLOPPY TRANSLATION 

;SAVE TABLE ADDRESS 

;SAVE SECTOR # 

;GET DPB ADDRESS INTO HL 

;GET # OF CP/M SECTORS/TRACK 

; CLEAR CARY 

; DIVIDE BY TWO 

;SAVE ADJUSTED SECTOR 

7 DISCARD ADJUSTED SECTOR 
; RESTORE SECTOR REQUESTED 
;RESTOR ADDRESS OF XLT TABLE 
;HL <- & (TRANSLATION TABLE) 
;BC = OFFSET INTO TABLE 
;HL <- PHYSICAL SECTOR 



; OFFSET TO SIDE BIT 

7 TEST FOR DOUBLE SIDED 
;MEDIA IS ONLY SINGLE SIDED 
; RETRIEVE ADJUSTED SECTOR 

;MAKE SECTOR REQUEST POSITIVE 

;MAKE NEW SECTOR THE REQUESTED SECTOR 



?SIDE TWO BIT 

; AND SECTOR 



;HARD DISK TRANSLATION ROUTINE 



***************************************************************** 

* * 

* SETDRV SELECTS THE NEXT DRIVE TO BE USED IN READ/WRITE * 

* OPERATIONS. IF THE DRIVE HAS NEVER BEEN SELECTED BEFORE, A * 

* PARAMETER TABLE IS CREATED WHICH CORRECTLY DESCRIBES THE * 

* DISKETTE CURRENTLY IN THE DRIVE. DISKETTES CAN BE OF FOUR * 

* DIFFERENT SECTOR SIZES: * 
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* 
* 

* 
* 
* 



1) 128 BYTES SINGLE DENSITY. 

2) 2 56 BYTES DOUBLE DENSITY. 

3) 512 BYTES DOUBLE DENSITY. 

4) 1024 BYTES DOUBLE DENSITY. 



* 

* 
* 
* 



***************************************************************** 



CF8B 79 
CF8C 32F7D4 
CF8F FE05 
CF91 D25AD0 
CF94 7B 
CF95 E601 
CF97 C241D0 



CF9A 3AF7D4 



CF9D FE02 
CF9F D2F7CF 



CFA2 
CFA5 
CFA8 
CFAA 
CFAD 
CFB0 
CFB3 
CFB6 
CFB8 
CFB9 



210100 

22F9D4 

3E01 

32F8D4 

CD96D1 

DA5AD0 

CD27E4 

E60C 

F5 

IF 



SETDRV MOV 
STA 
CPI 
JNC 
MOV 
ANI 
JNZ 

IF 
LDA 

IF 

CPI 

JC 

SUI 

ELSE 

CPI 

JNC 

ENDIF 

ENDIF 

IF 

MOV 

MVI 

FLOPFLG EQU 
ANA 
JNZ 
MVI 
LXI 
MVI 

CLOPP CMP 
JNZ 
DCR 
JNZ 
CALL 
MVI 
STA 
ENDIF 
IF 

FLOPOK LXI 
SHLD 
MVI 
STA 
CALL 
JC 

CALL 
ANI 
PUSH 
RAR 



A,C ;SAVE THE DRIVE # 

CPMDRV 

MAXFLOP+(MAXHD*LOGDSK) ; CHECK FOR A VALID DRIVE # 

ZRET ; ILLEGAL DRIVE # 

A,E ;TEST IF DRIVE EVER LOGGED IN BEFORE 

1 

SETDRV1 ;BIT OF E = -> NEVER SELECTED BEFORE 

(MAXHD NE 0) AND (MAXFLOP NE 0) ;BOTH TYPES ? 

CPMDRV ;GET THE DRIVE NUMBER 



FIRST 

MAXHD*LOGDSK 
DRVHD 
MAXHD*LOGDSK 

MAXFLOP 
SUBFP 



;OVER THE # OF HARD DISKS ? 



;OVER THE # OF FLOPPIES ? 



(MAXFLOP NE 0) AND FIRST 



C,A 
A,0 

$-1 

A 

FLOPOK 

B,17 

H f DJBOOT 

A, (JMP) 

M 

ZRET 

B 

CLOPP 

DJBOOT 

A,l 

FLOPFLG 

MAXFLOP NE 

H,l 

TRUESEC 

A,l 

CPMTRK 

FILL 

ZRET 

DJSTAT 

0CH 

PSW 



;SAVE DRIVE # 

;HAVE THE FLOPPIES BEEN ACCESSED YET ? 



; FLOPPIES HAVN'T BEEN ACCESSED 

; CHECK IF 2D CONTROLLER IS INSTALLED 



INITIALIZE THE CONTROLLER 
;SAVE 2D INITIALIZED FLAG 



; SELECT SECTOR 1 OF TRACK 1 



; FLUSH BUFFER AND REFILL 
;TEST FOR ERROR RETURN 
?GET STATUS ON CURRENT DRIVE 
7 STRIP OFF UNWANTED BITS 
;USED TO SELECT A DPB 
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CFBA 


2182D0 


LXI 


H,XLTS 


CFBD 


5F 


MOV 


E,A 


CFBE 


1600 


MVI 


D,0 


CFC0 


19 


DAD 


D 


CFC1 


E5 


PUSH 


H 


CFC2 


CD69D0 


CALL 


GETDPB 


CFC5 


EB 


XCHG 




CFC6 


Dl 


POP 


D 


CFC7 


0602 


MVI 


B,2 


CFC9 


CDCCD1 


CALL 


MOVLOP 


CFCC 


110800 


LXI 


D,8 


CFCF 


19 


DAD 


D 


CFD0 


E5 


PUSH 


H 


CFD1 


2A07E0 


LHLD 


ORIGIN+7 


CFD4 


23 


I NX 


H 


CFD5 


7E 


MOV 


A,M 


CFD6 


EE03 


XRI 


3 


CFD8 


6F 


MOV 


L,A 


CFD9 


26E3 


MVI 


H, (ORIGIN+ 


CFDB 


7E 


MOV 


A,M 


CFDC 


E608 


ANI 


DBLSID 


CFDE 


11F5D3 


LXI 


D,DPB128S 


CFE1 


C2E7CF 


JNZ 


SIDEOK 


CFE4 


1135D4 


LXI 


D r DPB128D 


CFE7 


EB SIDEOK XCHG 




CFE8 


Dl 


POP 


D 


CFE9 


Fl 


POP 


PSW 


CFEA 


17 


RAL 




CFEB 


17 


RAL 




CFEC 


4F 


MOV 


C,A 


CFED 


0600 


MVI 


B,0 


CFEF 


09 


DAD 


B 


CFF0 


EB 


XCHG 




CFF1 


73 


MOV 


M,E 


CFF2 


23 


I NX 


H 


CFF3 


72 


MOV 
END IF 


M,D 






. _.. .. 


(MAXHD NE 


CFF4 


C341D0 


JMP 


SETDRV1 






IF 


NOT Ft RST 


CFF7 


D602 SUBFP SUI 


MAXFLOP 




" .* . v. 1' .!; '■ >' 


ENDIF 


■■:;■■■' i. ■ .:'*!. 






ENDIF 


■ : ■■■ !' 






IF 


MAXHD NE 


CFF9 


CD60D0 DRVHD CALL 


DlVLOG 


CFFC 


79 


MOV 


A,C 


CFFD 


3222D3 


STA 


HDDlSK 


D000 


CD10D3 


CALL 


DRVPTR 


D003 


7E '' 


MOV 


A, M 


D004 


3C 


INR 


A 


D005 


C241D0 


JNZ 


SETDRV1 


D008 


F6FC 


ORI 


NULL 


D00A 


D352 


OUT 


HDFUNC 



*** Cbios For CP/M Ver. 2.2 *** 

; TABLE OF XLT ADDRESSES 



SAVE POINTER TO PROPER XLT 
GET DPH POINTER INTO DE 



; ADJUST FOR PROPER REV DJ 



; NUMBER OF BYTES TO MOVE 
;MOVE THE ADDRESS OF XLT 
; OFFSET TO DPB POINTER 
;HL <- &DPH.DPB 



GET ADDRESS OF DJ TERMINAL OUT ROUTINE 
BUMP TO LOOK AT ADDRESS OF 
UART STATUS LOCATION 

FOR PROPER REV I 

j CHECK DOUBLE SIDED BIT 
;BASE FOR SINGLE SIDED DPB ' S 

?BASE OF DOUBLE SIDED DPB ' S 
;HL <- DBP BASE, DE <- &DPH.DPB 
; RESTORE DE (POINTER INTO DPH) 
; OFFSET TO CORRECT DPB 



;PUT DPB ADDRESS IN DPH 



;SKIP OVER THE HARD DISK SELECT 
; ADJUST THE DRIVE # 



; DIVIDE BY LOGICAL DISKS PER DRIVE 



; SELECT DRIVE 
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D00C 


3E05 


D00E 


D350 


D010 


0EEF • 


D012 


210000 


D015 


2B 


D016 


7C 


D017 


B5 


D018 


CC5ED0 


D01B 


C8 


D01C 


DB50 


D01E 


E620 


D020 


C215D0 


D023 


210000 


D026 


0E40 


D028 


DB50 


D02A 


Al 


D02B 


47 


D02C 


DB50 


D02E 


Al 


D02F 


B8 


D030 


CA2CD0 


D033 


23 


D034 


DB50 


D036 


Al 


D037 


B8 


D038 


C233D0 



D03B 2208D2 
D03E CDF2D1 



TDELAY 



INDX1 



INDX2 



#020 

MVI 

OUT 

MVI 

LXI 

DCX 

MOV 

ORA 

CZ 

RZ 

IN 

ANI 

JNZ 

IF 

LXI 

MVI 

IN 

ANA 

MOV 

IN 

ANA 

CMP 

JZ 

I NX 

IN 

ANA 

CMP 

JNZ 

IF 

DAD 

ENDIF 

SHLD 

ENDIF 

CALL 

ENDIF 



*** Cbios For CP/M Ver. 2.2 *** 

A,SCENBL .'ENABLE THE CONTROLLER 

HDCNTL 

C,239 ;WAIT APPROX 2 MINUTES FOR DISK TO READY 

H,0 

H 

A,H 

L 

DCRC 



HDSTAT 
DRVRDY 
TDELAY 

SDELAY 

H,0 

C , INDEX 

HDSTAT 

C 

B,A 

HDSTAT 

C 

B 

INDX1 

H 

HDSTAT 

C 

B 

INDX2 

M10 

H 

SETTLE 

HDHOME 



;TEST IF READY YET 



;TIME ONE REVOLUTION OF THE DRIVE 



;SAVE CURRENT INDEX LEVEL IN B 



;LOOP UTIL INDEX LEVEL CHANGES 



; START COUNTING UNTIL INDEX RETURNS TO 
PREVIOUS STATE 



;SAVE THE COUNT FOR TIMEOUT DELAY 



D041 
D044 
D047 
D048 
D049 
D04B 
D04E 
D04F 
D050 
D051 
D052 
D053 
D055 
D058 
D059 



CD69D0 

010F00 

09 

7E 

E607 

3296D0 

7E 

IF 

IF 

IF 

IF 

E60F 

32D4D0 

EB 

C9 



SETDRV1 CALL 
LXI 
DAD 
MOV 
ANI 
STA 
MOV 
RAR 
RAR 
RAR 

RAR 

ANI 
STA 
XCHG 
RET 



GETDPB 

B,15 

B 

A,M 

7H 

SECSIZ 

A,M 



D05A 210000 
D05D C9 



ZRET 



LXI 

RET 



0FH 
SECPSEC 



H,0 



;GET ADDRESS OF DPB IN HL 
TOFFSET TO SECTOR SIZE 

;GET SECTOR SIZE 



;HL <- DPH 



;SELDRV ERROR EXIT 



IF 



MAXHD NE 
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D05E 


0D 


DCRC 


DCR 


C 


D05F 


C9 




RET 




D060 


0E00 


DIVLOG 


MVI 


C,0 


D062 


D603 


DIVLOGX 


SUI 


LOGDSK 


D064 


D8 




RC 




D065 


0C 




INR 


C 


D066 


C362D0 




JMP 
ENDIF 


DIVLOGX 



*** Cbios For CP/M Ver. 2.2 *** 

; CONDITIONAL DECREMENT C ROUTINE 



***************************************************************** 

* * 

* GETDPB RETURNS HL POINTING TO THE DPB OF THE CURRENTLY * 

* SELECTED DRIVE, DE POINTING TO DPH. * 

* * 
***************************************************************** 



D069 


3AF7D4 GETDPB LDA 


CPMDRV 


D06C 


6F • 


MOV 


L,A 


D06D 


2600 


MVI 


H,0 


D06F 


29 


DAD 


H 


D070 


29 


DAD 


H 


D071 


29 


DAD 


H 


D072 


29 


DAD 


H 


D073 


11A5D4 


LXI 


D,DPBASE 


D076 


19 


DAD 


D 


D077 


E5 


PUSH 


H 


D078 


110A00 


LXI 


D,10 


D07B 


19 


DAD 


D 


D07C 


7E 


MOV 


A,M 


D07D 


23 


I NX 


H 


D07E 


66 


MOV 


H,M 


D07F 


6F 


MOV 


L,A 


D080 


Dl 


POP 


D 


D081 


C9 


RET 





yFORM OFFSET 



;BASE OF DPH'S 

;SAVE ADDRESS OF DPH 
; OFFSET TO DPB 

;GET LOW BYTE OF DPB ADDRESS 

;GET LOW BYTE OF DPB 



***************************************************************** 

* * 

* XLTS IS A TABLE OF ADDRESS THAT POINT TO EACH OF THE XLT * 

* TABLES FOR EACH SECTOR SIZE. * 

* * 

***************************************************************** 



D082 27D3 
D084 42D3 
D086 77D3 
D088 B4D3 



XLTS 



IF 


MAXFLOP NE 


DW 


XLT128 


DW 


XLT256 


DW 


XLT512 


DW 


XLT124 


ENDIF 





;XLT FOR 128 BYTE SECTORS 
;XLT FOR 256 BYTE SECTORS 
;XLT FOR 512 BYTE SECTORS 
yXLT FOR 1024 BYTE SECTORS 



***************************************************************** 

* ; . : ! ,..';,; .. , " * 

* WRITE ROUTINE MOVES DATA FROM MEMORY INTO THE BUFFER. IF THE * 

* DESIRED CP/M SECTOR IS NOT CONTAINED IN THE DISK BUFFER, THE * 

* BUFFER IS FIRST FLUSHED TO THE DISK IF IT HAS EVER BEEN * 

* WRITTEN INTO, THEN A READ IS PERFORMED INTO THE BUFFER TO GET * 
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D08A 79 
D08B 32FCD0 
D08E 3E01 
D090 06 



* THE DESIRED SECTOR. ONCE THE CORRECT SECTOR IS IN MEMORY, THE * 

* BUFFER WRITTEN INDICATOR IS SET, SO THE BUFFER WILL BE * 

* FLUSHED, THEN THE DATA IS TRANSFERRED INTO THE BUFFER. * 

* * 

***************************************************************** 

WRITE MOV A,C ?SAVE WRITE COMMAND TYPE 

STA WRITTYP 

MVI A,l ;SET WRITE COMMAND 

DB (MVI) OR (B*8) ;THIS "MVI B" INSTRUCTION CAUSES 

? THE FOLLOWING "XRA A" TO 
; BE SKIPPED OVER. 

***************************************************************** 

* * 

* READ ROUTINE TO BUFFER DATA FROM THE DISK. IF THE SECTOR * 

* REQUESTED FROM CP/M IS IN THE BUFFER, THEN THE DATA IS SIMPLY * 

* TRANSFERRED FROM THE BUFFER TO THE DESIRED DMA ADDRESS. IF * 

* THE BUFFER DOES NOT CONTAIN THE DESIRED SECTOR, THE BUFFER IS * 

* FLUSHED TO THE DISK IF IT HAS EVER BEEN WRITTEN INTO, THEN * 

* FILLED WITH THE SECTOR FROM THE DISK THAT CONTAINS THE * 

* DESIRED CP/M SECTOR. * 

* * 
***************************************************************** 



D091 AF 
D092 32E8D0 



READ 



XRA 
STA 



A 
RDWR 



;SET THE COMMAND TYPE TO READ 
;SAVE COMMAND TYPE 



***************************************************************** 

* * 

* REDWRT CALCULATES THE PHYSICAL SECTOR ON THE DISK THAT * 

* CONTAINS THE DESIRED CP/M SECTOR, THEN CHECKS IF IT IS THE * 

* SECTOR CURRENTLY IN THE BUFFER. IF NO MATCH IS MADE, THE * 

* BUFFER IS FLUSHED IF NECESSARY AND THE CORRECT SECTOR READ * 

* FROM THE DISK. * 

* * 
***************************************************************** 



D095 


0600 


REDWRT 


MVI 


B,0 


D096 


~ 


SECSIZ 


EQU 


$-1 


D097 


2AF5D4 




LHLD 


CPMSEC 


D09A 


7C 




MOV 


A,H 


D09B 


E680 




ANI 


80H 


D09D 


4F 




MOV 


C,A 


D09E 


7C 




MOV 


A,H 


D09F 


E67F 




ANI 


7FH 


D0A1 


67 




MOV 


H,A 


D0A2 


2B 




DCX 


H 


D0A3 


05 


DIVLOOP 


DCR 


B 


D0A4 


CAB1D0 




JZ 


DIVDONE 


D0A7 


B7 




ORA 


A 


D0A8 


7C 




MOV 


A,H 


D0A9 


IF 




RAR 




D0AA 


67 




MOV 


H,A 


D0AB 


7D 




MOV 


A,L 



;THE IS MODIFIED TO CONTAIN THE LOG2 

OF THE PHYSICAL SECTOR SIZE/128 
; ON THE CURRENTLY SELECTED DISK. 
;GET THE DESIRED CP/M SECTOR # 

;SAVE ONLY THE SIDE BIT 
; REMEMBER THE SIDE 

; FORGET THE SIDE BIT 

.♦TEMPORARY ADJUSTMENT 
; UPDATE REPEAT COUNT 
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*** Cbio 


D0AC 


IF 




RAR 




D0AD 


6F 




MOV 


L,A 


D0AE 


C3A3D0 




JMP 


DIVLOOP 


D0B1 


23 


DIVDONE 


I NX 


H 


D0B2 


7C 




MOV 


A, H 


D0B3 


Bl 




ORA 


C 


D0B4 


67 




MOV 


H,A 


D0B5 


22F9D4 




SHLD 


TRUESEC 


D0B8 


21F7D4 




LXI 


H, CPMDRV 


D0BB 


11FBD4 




LXI 


D, BUFDRV 


D0BE 


0605 




MVI 


B, 5 


D0C0 


05 


DTSLOP 


DCR 


B 


D0C1 


CACFD0 




JZ 


MOVE 


D0C4 


1A 




LDAX 


D 


D0C5 


BE 




CMP 


M 


D0C6 


23 




INX 


H 


D0C7 


13 




I NX 


D 


D0C8 


CAC0D0 




JZ 


DTSLOP 



; DIVIDE THE CP/M SECTOR # BY THE SIZE 
OF THE PHYSICAL SECTORS 



; RESTORE THE SIDE BIT 

;SAVE THE PHYSICAL SECTOR NUMBER 

.•POINTER TO DESIRED DRIVE, TRACK, AND SECTOR 

; POINTER TO BUFFER DRIVE, TRACK, AND SECTOR 

7 COUNT LOOP 

7 TEST IF DONE WITH COMPARE 

;YES, MATCH. GO MOVE THE DATA 

;GET A BYTE TO COMPARE 

.-TEST FOR MATCH 

;BUMP POINTERS TO NEXT DATA ITEM 

;MATCH, CONTINUE TESTING 



D0CB CD96D1 
D0CE D8 



***************************************************************** 

* * 

* DRIVE, TRACK, AND SECTOR DON'T MATCH, FLUSH THE BUFFER IF * 

* NECESSARY AND THEN REFILL. * 

* * 

***************************************************************** 



CALL 
RC 



FILL 



;FILL THE BUFFER WITH CORRECT PHYSICAL SECTOR 
;NO GOOD, RETURN WITH ERROR INDICATION 



***************************************************************** 

* * 

* MOVE HAS BEEN MODIFIED TO CAUSE EITHER A TRANSFER INTO OR OUT * 

* THE BUFFER. * 

* * 
***************************************************************** 



D0CF 3AF5D4 
D0D2 3D 
D0D3 E600 
D0D4 = 

D0D5 6F 
D0D6 2600 
D0D8 29 
D0D9 29 
D0DA 29 
D0DB 29 
D0DC 29 
D0DD 29 
D0DE 29 
D0DF 11FFD4 
D0E2 19 
D0E3 EB 
D0E4 210000 



MOVE LDA 
DCR 
ANI 

SECPSEC EQU 

MOV 

MVI 

DAD 

DAD 

DAD 

DAD 

DAD 

DAD 

DAD 

LXI 

DAD 

XCHG 

LXI 



CPMSEC 

A 



$-1 

L,A 

H, 

H 

H 

H 

H 

H 

H 

H 

D, BUFFER 

D 

H, 



GET THE CP/M SECTOR TO TRANSFER 
ADJUST TO PROPER SECTOR IN BUFFER 
STRIP OFF HIGH ORDERED BITS 
THE IS MODIFIED TO REPRESENT THE # OF 

CP/M SECTORS PER PHYSICAL SECTORS 
PUT INTO HL 

;FORM OFFSET INTO BUFFER 



; BEGINNING ADDRESS OF BUFFER 

;FORM BEGINNING ADDRESS OF SECTOR TO TRANSFER 

;DE = ADDRESS IN BUFFER 

; GET DMA ADDRESS, THE IS MODIFIED TO 

; CONTAIN THE DMA ADDRESS 
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D0E5 


= 


CPMDMA 


EQU 


$-2 


D0E7 


3E00 




MVI 


A,0 


D0E8 


= 


RDWR 


EQU 


$-1 


D0E9 


A7 




ANA 


A 


D0EA 


C2F2D0 




JNZ 


INTO 


D0ED 


CDCAD1 


OUTOF 


CALL 


MOVER 


D0F0 


AF 




XRA 


A 


D0F1 


C9 




RET 




D0F2 


EB 


INTO 


XCHG 




D0F3 


CDCAD1 




CALL 


MOVER 


D0F6 


3E01 




MVI 


A,l 


D0F8 


3205D1 




STA 


BUFWRTN 


D0FB 


3E00 




MVI 


A,0 


D0FC 


= 


WRITTYP 


EQU 


$-1 


D0FD 


3D 




DCR 


A 


D0FE 


3E00 




MVI 


A,0 


D100 


32FCD0 




STA 


WRITTYP 


D103 


C0 




RNZ 





;THE ZERO GETS MODIFIED TO CONTAIN 

; A ZERO IF A READ, OR A 1 IF WRITE 

;TEST WHICH KIND OF OPERATION 
.•TRANSFER DATA INTO THE BUFFER 



MOVE THE DATA, HL = DESTINATION 
DE = SOURCE 

;SET BUFFER WRITTEN INTO FLAG 
; CHECK FOR DIRECTORY WRITE 



;SET NO DIRECTORY WRITE 
?NO ERROR EXIT 

***************************************************************** 

* * 

* FLUSH WRITES THE CONTENTS OF THE BUFFER OUT TO THE DISK IF * 

* IT HAS EVER BEEN WRITTEN INTO. * 

* * 
***************************************************************** 



D104 


3E00 


FLUSH 


MVI 


A,0 


D105 


= 


BUFWRTN 


EQU 


$-1 


D106 


A7 




ANA 


A 


D107 


C8 




RZ 
IF 


(MAXHD NE 0) 


D108 


2118E4 




LXI 


H,DJWRITE 


D10B 


1192D2 




LXI 


D, HDWRITE 


D10E 


CDD9D1 




CALL 

ELSE 

IF 

LXI 

ENDIF 

IF 

LXI 

ENDIF 

ENDIF 


DECIDE 

MAXHD NE 
H, HDWRITE 

MAXFLOP NE 
H,DJWRITE 



;THE IS MODIFIED TO REFLECT IF 

; THE BUFFER HAS BEEN WRITTEN INTO 

;TEST IF WRITTEN INTO 
;NOT WRITTEN, ALL DONE 



;WRITE OPERATION FOR DISK JOCKEY 
;WRITE OPERATION FOR HARD DISK 



***************************************************************** 



* 

* 

* ADDRESS. * 

* * 
***************************************************************** 



* 

* PREP PREPARES TO READ/WRITE THE DISK. RETRIES ARE ATTEMPTED. 

* UPON ENTRY, H&L MUST CONTAIN THE READ OR WRITE OPERATION 
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Dill AF 
D112 3205D1 
D115 2277D1 
D118 060A 
D11A C5 
DUB 3AFBD4 



DUE FE02 
D120 DA25D1 
D123 D602 



D125 4F 
D126 2133CD 
D129 11E1D1 
D12C CDD5D1 



D12F 3AFCD4 
D132 A7 
D133 4F 
D134 C5 



D135 2109E4 
D138 11F2D1 
D13B CCD5D1 



PREP 



XRA 
STA 
SHLD 
MVI 
RETRYLP PUSH 
LDA 

IF 

IF 

CPI 

JC 

SUI 

ELSE 

CPI 

JC 

SUI 

ENDIF 

NOADJST MOV 
LXI 
LXI 
CALL 
ELSE 
MOV 
IF 

CALL 
ENDIF 
IF 

CALL 
ENDIF 
ENDIF 

LDA 
ANA 
MOV 
PUSH 

IF 

LXI 

LXI 

CZ 

ELSE 

IF 

CZ 

ENDIF 

IF 

CZ 

ENDIF 

ENDIF 



*** Cbios For CP/M Ver. 2.2 *** 

A ; RESET BUFFER WRITTEN FLAG 

BUFWRTN 

RETRYOP ;SET UP THE READ/WRITE OPERATION 

B, RETRIES ;MAXIMUM NUMBER OF RETRIES TO ATTEMPT 

B ;SAVE THE RETRY COUNT 

BUFDRV ;GET DRIVE NUMBER INVOLVED IN THE OPERATION 

(MAXHD NE 0) AND (MAXFLOP NE 0) 

FIRST 

MAXHD*LOGDSK 

NOADJST 

MAXHD*LOGDSK 

MAXFLOP 
NOADJST 
MAXFLOP 



C,A 

H,DJDRV 
D, HDDRV 
DECIDGO 

C,A 

MAXHD NE 

HDDRV 

MAXFLOP NE 
DJDRV 



BUFTRK 
A 

C,A 
B 



; SELECT DRIVE 



; SELECT THE DRIVE 



;TEST FOR TRACK ZERO 



(MAXHD NE 0) AND (MAXFLOP NE 0) 
H, DJHOME 
D, HDHOME 
DECIDGO 

MAXHD NE 
HDHOME 



MAXFLOP NE 
DJHOME 



;HOME THE DRIVE IF TRACK 



D13E CI 



D13F 210CE4 
D142 1113D2 
D145 CDD5D1 



POP 

IF 
LXI 
LXI 
CALL 



B 



.; RESTORE TRACK # 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H.DJTRK 

DVHDTRK 

DECIDGO 
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ELSE 

IF 

CALL 

ENDIF 

IF 

CALL 

ENDIF 

ENDIF 



MAXHD NE 
HDTRK 

MAXFLOP NE 
DJTRK 



;SEEK TO PROPER TRACK 



D148 2AFDD4 
D14B 7C 
D14C 07 
D14D E601 
D14F 4F 



D150 2130E4 
D153 113FD2 
D156 CDD5D1 



LHLD 

MOV 

RLC 

ANI 

MOV 

IF 

LXI 

LXI 

CALL 

ELSE 

IF 

CALL 

ENDIF 

IF 

CALL 

ENDIF 

ENDIF 



BUFSEC 
A,H 

1 
C,A 



;GET SECTOR INVOLVED IN OPERATION 
;BIT OF A EQUALS SIDE # 
; STRIP OFF UNNECESSARY BITS 
?C <- SIDE # 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJSIDE 

D,HDSIDE 

DECIDGO 

MAXHD NE 
HDSIDE 



MAXFLOP NE 
DJSIDE 



I SELECT THE SIDE 



D159 2AFDD4 
D15C 7C 
D15D E67F 
D15F 47 
D160 4D 



D161 210FE4 
D164 1148D2 
D167 CDD5D1 



LHLD 

MOV 

ANI 

MOV 

MOV 

IF 

LXI 

LXI 

CALL 

ELSE 

IF 

CALL 

ENDIF 

IF 

CALL 

ENDIF 

ENDIF 



BUFSEC 

A,H 

7FH 

B,A 

C,L 



;STRIP OFF SIDE BIT 
;C <- SECTOR # 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJSEC 

D,HDSEC 

DECIDGO 

MAXHD NE 
HDSEC 



MAXFLOP NE 
DJSEC 



; SELECT THE SIDE 



D16A 01FFD4 



D16D 2112E4 
D170 113AD2 
D173 CDD5D1 



LXI 

IF 

LXI 

LXI 

CALL 

ELSE 

IF 

CALL 



B, BUFFER 



;SET THE DMA ADDRESS 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJDMA 

D, HDDMA 

DECIDGO 

MAXHD NE 
HDDMA 
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ENDIF 








IF 


MAXFLOP NE 






CALL 


DJDMA 






ENDIF 








ENDIF 




D176 


CD0000 


CALL 





D177 


= 


RETRYOP EQU 


$-2 


D179 


CI 


POP 


B 


D17A 


3E00 


MVI 


A,0 


D17C 


D0 


RNC 




D17D 


05 


DCR 


B 


D17E 


37 


STC 




D17F 


3EFF 


MVI 


A f 0FFH 


D181 


C8 


RZ 




D182 


78 


MOV 


A,B 


D183 


FE05 


CPI 


RETRIES/ 2 


D185 


C21AD1 


JNZ 


RETRYLP 


D188 


C5 


PUSH 


B 






IF 


(MAXHD NE 0) 


D189 


2109E4 


LXI 


H,DJHOME 


D18C 


11F2D1 


LXI 


D # HDHOME 


D18F 


CDD5D1 


CALL 
ELSE 


DECIDGO 






IF 


MAXHD NE 






CALL 


HDHOME 






ENDIF 








IF 


MAXFLOP NE 






CALL 


DJHOME 






ENDIF 








ENDIF 




D192 


CI 


POP 


B 


D193 


C31AD1 


JMP 


RETRYLP 



; SELECT THE SIDE 



;GET OPERATION ADDRESS 

; RESTORE THE RETRY COUNTER 

;NO ERROR EXIT STATUS 

; RETURN NO ERROR 

; UPDATE THE RETRY COUNTER 

;ASSUME RETRY COUNT EXPIRED 

; ERROR RETURN 



;TRY AGAIN 



;HOME THE DRIVE IF TRACK 



***************************************************************** 

* * 

* FILL FILLS THE BUFFER WITH A NEW SECTOR FROM THE DISK. * 

* * 
***************************************************************** 



D196 CD04D1 
D199 D8 
D19A 11F7D4 
D19D 21FBD4 
D1A0 0604 
D1A2 CDCCD1 

D1A5 3AE8D0 
D1A8 A7 
D1A9 CABED1 
D1AC 3AFCD0 
D1AF 3D 
D1B0 3D 
D1B1 C8 



FILL 



CALL 


FLUSH 


RC 




LXI 


D, CPMDRV 


LXI 


H.BUFDRV 


MVI 


B,4 


CALL 


MOVLOP 


LDA 


RDWR 


ANA 


A 


JZ 


FREAD 


LDA 


WRITTYP 


DCR 


A 


DCR 


A 


RZ 





; FLUSH BUFFER FIRST 

; CHECK FOR ERROR 

; UPDATE THE DRIVE, TRACK, AND SECTOR 

; NUMBER OF BYTES TO MOVE 
;COPY THE DATA 
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D1B2 CD69D0 
D1B5 110F00 
D1B8 19 
D1B9 7E 
D1BA E603 
D1BC 3D 
D1BD C8 



CALL 

LXI 

DAD 

MOV 

ANI 

DCR 

RZ 



GETDPB 

D,15 

D 

A,M 

3 

A 



D1BE = 

D1BE 2115E4 
D1C1 115DD2 
D1C4 CDD9D1 



FREAD 



D1C7 C311D1 



EQU 

IF 

LXI 

LXI 

CALL 

ELSE 

IF 

LXI 

ENDIF 

IF 

LXI 

ENDIF 

ENDIF 

JMP 



$ 

(MAXHD NE 0) AND (MAXFLOP NE 0) 

H, DJREAD 

D, HDREAD 

DECIDE 

MAXHD NE 
H, HDREAD 



MAXFLOP NE 
H, DJREAD 



PREP 



; SELECT THE SIDE 



; SELECT DRIVE, TRACK, AND SECTOR. 
; THEN READ THE BUFFER 



***************************************************************** 

* * 

* MOVER MOVES 128 BYTES OF DATA. SOURCE POINTER IN DE, DEST * 

* POINTER IN HL. * 

* * 
***************************************************************** 



D1CA 0680 


MOVER 


MVI 


B,128 


D1CC 1A 


MOVLOP 


LDAX 


D 


D1CD 77 




MOV 


M f A 


DICE 13 




INX 


D 


D1CF 23 




I NX 


H 


D1D0 05 




DCR 


B 


D1D1 C2CCD1 




JNZ 


MOVLOP 


D1D4 C9 




RET 





; LENGTH OF TRANSFER 
;GET A BTE OF SOURCE 
;MOVE IT 
;BUMP POINTERS 

; UPDATE COUNTER 

j CONTINUE MOVING UNTIL DONE 



***************************************************************** 

* * 

* ROUTINES TO DECIDE WHICH CONTROLLER TO USE. * 

* * 
***************************************************************** 









IF 


D1D5 


CDD9D1 


DECIDGO 


CALL 


D1D8 


E9 




PCHL 
ENDIF 

IF 


D1D9 


3AFBD4 


DECIDE 


LDA 
IF 
CPI 
RNC 



(MAXHD NE 0) AND (MAXFLOP NE 0) 
DECIDE ?WHICH CONTROLLER ? 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

BUFDRV ;GET PROPER ROUTINE INTO H&L, BASED 

FIRST ; ON CURRENTLY SELECTED DRIVE 

MAXHD*LOGDSK 
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*** 



D1DC FE02 
D1DE D8 

D1DF EB 
D1E0 C9 



ELSE 

CPI 

RC 

ENDIF 

XCHG 

RET 

ENDIF 



MAXFLOP 



***************************************************************** 

* 
* 

* THE FOLLOWING IS THE EQUIVALENT OF THE LOWEST LEVEL DRIVERS * 

* FOR THE HARD DISK. * 
* 

***************************************************************** 









IF 


MAXHD NE 


D1E1 


79 


HDDRV 


MOV 


A,C 


D1E2 


CD60D0 




CALL 


DIVLOG 


D1E5 


79 




MOV 


A,C 


D1E6 


3222D3 




STA 


HDDISK 


D1E9 


F6FC 




ORI 


NULL 


D1EB 


D352 




OUT 


HDFUNC 


DIED 


3E0F 




MVI 


A,WENABL 


D1EF 


D350 




OUT 


HDCNTL 


D1F1 


C9 




RET 




D1F2 


CD10D3 


HDHOME 


CALL 


DRVPTR 


D1F5 


3600 




MVI 
IF 


M,0 
SDELAY 


D1F7 


DB50 


STEPO 


IN 


HDSTAT 


D1F9 


E601 




ANI 


TKZERO 


D1FB 


CA07D2 




JZ 


DELAY 


D1FE 


3E01 




MVI 


jHl § JL 


D200 


37 




STC 




D201 


CD27D2 




CALL 


ACCOK 


D204 


C3F7D1 




JMP 


STEPO 



; SELECT HARD DISK DRIVE 
;GET THE PHYSICAL DRIVE # 

; SELECT THE DRIVE 



;SET TRACK TO ZERO 



rTEST STATUS 
?AT TRACK ZERO ? 



;TAKE ONE STEP OUT 



ELSE 









IN 


HDSTAT 








ANI 


TKZERO 








RZ 










XRA 


A 








JMP 


ACCOK 








ENDIF 










IF 


SDELAY 


D207 


210000 


DELAY 


LXI 


H,0 


D208 


= 


SETTLE 


EQU 


$-2 


D20A 


2B 


DELOOP 


DCX 


H 


D20B 


7C 




MOV 


A,H 


D20C 


B5 




ORA 


L 


D20D 


23 




I NX 


H 


D20E 


2B 




DCX 


H 


D20F 


C20AD2 




JNZ 


DELOOP 



?GET DELAY 
;WAIT 20MS 
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D212 


C9 




RET 
END IF 




D213 


CD10D3 


HDTRK 


CALL 


DRVPTR 


D216 


5E 




MOV 


E,M 


D217 


71 




MOV 


M,C 


D218 


7B 




MOV 


A,E 


D219 


91 




SUB 


C 


D21A 


C8 




RZ 




D21B 


3F 




CMC 




D21C 


DA21D2 




JC 


HDTRK2 


D21F 


2F 




CMA 




D220 


3C 




INR 
IF 


A 

NOT SDELAY 






HDTRK2 


JMP 
ELSE 


ACCOK 


D221 


CD27D2 


HDTRK2 


CALL 


ACCOK 


D224 


C307D2 




JMP 
END IF 


DELAY 


D227 


47 


ACCOK 


MOV 


B,A 


D228 


CD1BD3 




CALL 


BUILD 


D22B 


E6FB 


SLOOP 


ANI 


NSTEP 


D22D 


D352 




OUT 


HDFUNC 


D22F 


F604 




ORI 


PSTEP 


D231 


D352 




OUT 


HDFUNC 


D233 


05 




DCR 


B 


D234 


C22BD2 




JNZ 


SLOOP 


D237 


C340D2 




JMP 


WSDONE 


D23A 


60 


HDDMA 


MOV 


H,B 


D23B 


69 




MOV 


L,C 


D23C 


2277D2 




SHLD 


HDADD 


D23F 


88 


HDSIDE 


EQU 


$ 


D23F 


C9 




RET 




D240 


DB50 


WSDONE 


IN 


HDSTAT 


D242 


E604 




ANI 


COMPLT 


D244 


CA40D2 




JZ 


WSDONE 


D247 


C9 




RET 
IF 


M26 


D248 


3E1F 


HDSEC 


MVI 


A,01FH 


D24A 


Al 




ANA 


C 


D24B 


CC5AD2 




CZ 


GETSPT 


D24E 


3200D3 




STA 


HDSECTR 


D251 


3EE0 




MVI 


A.0E0H 


D253 


Al 




ANA 


C 


D254 


07 




RLC 




D255 


07 




RLC 




D256 


07 




RLC 




D257 


321CD3 




STA 


HEAD - 


D25A 


3E20 


GETSPT 


MVI 


A,HDSPT 


D25C 


C9 




RET 





;GET POINTER TO CURRENT TRACK 
;GET CURRENT TRACK 
; UPDATE THE TRACK 
;NEED TO SEEK AT ALL ? 



?GET CARRY INTO DIRECTION 



;PREP FOR BUILD 

;GET STEP PULSE LOW 

; OUTPUT LOW STEP LINE 

;SET STEP LINE HIGH 

; OUTPUT HIGH STEP LINE 

; UPDATE REPEAT COUNT 

;KEEP GOING THE REQUIRED # OF TRACKS 



;SAVE THE DMA ADDRESS 



;WAIT FOR SEEK COMPLETE TO FINISH 



;FOR COMPATIBILITY WITH CBIOS REV 2.3, 2.4 



ELSE 
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HDSEC 


MOV 

CALL 

ADI 

ANA 

CZ 

STA 

MOV 

STA 


A,C 

DIVSPT 

HDSPT 

A 

GETSPT 

HDSECTR 

A,C 

HEAD 






GETSPT 


MVI 
DCR 
RET 


A, HDSPT 
C 






DIVSPT 


MVI 


C,0 






DIVSPTX 


SUI 

RC 

INR 

JMP 

ENDIF 


HDSPT 

C 
DIVSPTX 


D25D 


CDDBD2 


HDREAD 


CALL 


HDPREP 


D260 


D8 




RC 




D261 


AF 




XRA 


A 


D262 


D351 




OUT 


HDCMND 


D264 


2F 




CMA 




D265 


D353 




OUT 


HDDATA 


D267 


D353 




OUT 


HDDATA 


D269 


3E01 




MVI 


A, RSECT 


D26B 


D351 




OUT 


HDCMND 


D26D 


CDC1D2 




CALL 


PROCESS 


D270 


D8 




RC 




D271 


AF 




XRA 


A 


D272 


D351 




OUT 


HDCMND 


D274 


0680 




MVI 


B,SECLEN/4 


D276 


210000 




LXI 


H,0 


D277 


= 


HDADD 


EQU 


$-2 


D279 


DB53 




IN 


HDDATA 


D27B 


DB53 




IN 


HDDATA 


D27D 


DB53 


RTLOOP 


IN 


HDDATA 


D27F 


77 




MOV 


M,A 


D280 


23 




I NX 


H 


D281 


DB53 




IN 


HDDATA 


D283 


77 




MOV 


M,A 


D284 


23 




I NX 


H 


D285 


DBS 3 




IN 


HDDATA 


D287 


77 




MOV 


M,A 


D288 


23 




INX 


H 


D289 


DB53 




IN 


HDDATA 


D28B 


77 




MOV 


M # A 


D28C 


23 




INX 


H 


D28D 


05 




DCR 


B 


D28E 


C27DD2 


1 ' 


JNZ 


RTLOOP 


D291 


C9 




RET 




D292 


CDDBD2 


HDWRITE 


CALL 


HDPREP 


D295 


D8 




RC 





;READ SECTOR COMMAND 



;MOVE FOUR BYTES 



; PREPARE HEADER 
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D296 


AF 


XRA 


A 


D297 


D351 


OUT 


HDCMND 


D299 


2A77D2 


LHLD 


HDADD 


D29C 


0680 


MVI 


B,SECLEN/4 


D29E 


7E 


WTLOOP MOV 


A,M 


D29F 


D353 


OUT 


HDDATA 


D2A1 


23 


INX 


H 


D2A2 


7E 


MOV 


A,M 


D2A3 


D353 


OUT 


HDDATA 


D2A5 


23 


INX 


H 


D2A6 


7E 


MOV 


A,M 


D2A7 


D353 


OUT 


HDDATA 


D2A9 


23 


INX 


H 


D2AA 


7E 


MOV 


A f M 


D2AB 


D353 


OUT 


HDDATA 


D2AD 


23 


INX 


H 


D2AE 


05 


DCR 


B 


D2AF 


C29ED2 


JNZ 


WTLOOP 


D2B2 


3E05 


MVI 


A,WSECT 


D2B4 


D351 


OUT 


HDCMND 


D2B6 


CDC1D2 


CALL 


PROCESS 


D2B9 


D8 


RC 




D2BA 


3E10 


MVI 


A,WFAULT 


D2BC 


A0 


ANA 


B 


D2BD 


37 


STC 




D2BE 


C8 


RZ 




D2BF 


AF 


XRA 


A 


D2C0 


C9 


RET 




D2C1 


DB50 


PROCESS IN 


HDSTAT 


D2C3 


47 


MOV 


B,A 


D2C4 


E602 


AN I 


OPDONE 


D2C6 


CAC1D2 


JZ 


PROCESS 


D2C9 


3E07 


MVI 


A,DSKCLK 


D2CB 


D350 


OUT 


HDCNTL 


D2CD 


DB50 


IN 


HDSTAT 


D2CF 


E608 


ANI 


TMOUT 


D2D1 


37 


STC 




D2D2 


C0 


RNZ 




D2D3 


DB51 


IN 


HDRESLT 


D2D5 


E602 


ANI 


RETRY 


D2D7 


37 


STC 




D2D8 


C0 


RNZ 




D2D9 


AF 


XRA 


A 


D2DA 


C9 


RET 




D2DB 


DB50 


HDPREP IN 


HDSTAT 


D2DD 


E620 


ANI 


DRVRDY 


D2DF 


37 


STC 




D2E0 


C0 


RNZ 




D2E1 


3E08 


MVI 


A, ISBUFF 


D2E3 


D351 


OUT 


HDCMND 


D2E5 


CD1BD3 


CALL 


BUILD 


D2E8 


F60C 


ORI 


0CH 


D2EA 


D352 


OUT 


HDFUNC 


D2EC 


3A1CD3 


LDA 


HEAD 



,-MOVE 4 BYTES 



; ISSUE WRITE SECTOR COMMAND 



;WAIT FOR COMMAND TO FINISH 



; TIMED OUT ? 



;ANY RETRIES ? 



INITIALIZE POINTER 
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D2EF 


D353 




OUT 


HDDATA 


D2F1 


CD10D3 




CALL 


DRVPTR 


D2F4 


7E 




MOV 


A # M 


D2F5 


D353 




OUT 


HDDATA 


D2F7 


A7 




ANA 


A 


D2F8 


0680 




MVI 


B f 80H 


D2FA 


CAFFD2 




JZ 


ZKEY 


D2FD 


0600 




MVI 


B,0 


D2FF 


3E00 


ZKEY 


MVI 


A,0 


D300 


= 


HDSECTR 


EQU 


$-1 


D301 


D353 




OUT 


HDDATA 


D303 


78 




MOV 


A,B 


D304 


D353 




OUT 


HDDATA 


D306 


3E07 




MVI 


A,DSKCLK 


D308 


D350 




OUT 


HDCNTL 


D30A 


3E0F 




MVI 


A,WENABL 


D30C 


D350 




OUT 


HDCNTL 


D30E 


AF 




XRA 


A 


D30F 


C9 




RET 




D310 


2A22D3 


DRVPTR 


LHLD 


HDDISK 


D313 


EB 




XCHG 




D314 


1600 




MVI 


D,0 


D316 


2126D3 




LXI 


H, DRIVES 


D319 


19 




DAD 


D 


D31A 


C9 




RET 




D31B 


3E00 


BUILD 


MVI 


A,0 


D31C 


= 


HEAD 


EQU 


$-1 


D31D 


17 




RAL 




D31E 


17 




RAL 




D31F 


17 




RAL 




D320 


17 




RAL 




D321 


F600 




ORI 





D322 


= 


HDDISK 


EQU 


$-1 


D323 


EEF0 




XRI 


0F0H 


D325 


C9 




RET 




D326 


_ 


DRIVES 


EQU 
REPT 
DB 
ENDM 


$ 

MAXHD 

0FFH 


D326+FF 




DB 


0FFH 








ENDIF 





;FORM HEAD BYTE 
;FORM TRACK BYTE 



;FORM SECTOR BYTE 



1c**************************************************************** 

* * 

* XLT TABLES (SECTOR SKEW TABLES) FOR CP/M 2.0. THESE TABLES * 

* DEFINE THE SECTOR TRANSLATION THAT OCCURS WHEN MAPPING CP/M * 

* SECTORS TO PHYSICAL SECTORS ON THE DISK. THERE IS ONE SKEW * 

* TABLE FOR EACH OF THE POSSIBLE SECTOR SIZES. CURRENTLY THE * 

* TABLES ARE LOCATED ON TRACK SECTORS 6 AND 8. THEY ARE * 

* LOADED INTO MEMORY IN THE CBIOS RAM BY THE COLD BOOT ROUTINE. * 

* * 

************** ***** ******** * * ***** ********* ***** ***************** 
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IF 


MAXFLOP NE 




D327 


00 XLT128 


DB 







D328 


01070D1319 


DB 


1,7,13,19,25 




D32D 


050B1117 


DB 


5,11,17,23 




D331 


03090F15 


DB 


3,9,15,21 




D335 


02080E141A 


DB 


2,8,14,20,26 




D33A 


060C1218 


DB 


6,12,18,24 




D33E 


040A1016 


DB 


4,10,16,22 




D342 


00 XLT256 


DB 







D343 


0102131425 


DB 


1,2,19,20,37,38 




D349 


0304151627 


DB 


3,4,21,22,39,40 




D34F 


0506171829 


DB 


5,6,23,24,41,42 




D355 


0708191A2B 


DB 


7,8,25,26,43,44 




D35B 


090A1B1C2D 


DB 


9,10,27,28,45,46 




D361 


0B0C1D1E2F 


DB 


11,12,29,30,47,48 




D367 


0D0E1F2031 


DB 


13,14,31,32,49,50 




D36D 


0F10212233 


DB 


15,16,33,34,51,52 




D373 


11122324 


DB 


17,18,35,36 




D377 


00 XLT512 


DB 







D378 


0102030411 


DB 


1,2,3,4,17,18,19,20 




D380 


2122232431 


DB 


33,34,35,36,49,50,51, 


52 


D388 


0506070815 


DB 


5,6,7,8,21,22,23,24 




D390 


2526272835 


DB 


37,38,39,40,53,54,55 


56 


D398 


090A0B0C19 


DB 


9,10,11,12,25,26,27,28 


D3A0 


292A2B2C39 


DB 


41,42,43,44,57,58,59, 


60 


D3A8 


0D0E0F101D 


DB 


13,14,15,16,29,30,31, 


32 


D3B0 


2D2E2F30 


DB 


45,46,47,48 




D3B4 


00 XLT124 


DB 







D3B5 


0102030405 


DB 


1,2,3,4,5,6,7,8 




D3BD 


191A1B1C1D 


DB 


25,26,27,28,29,30,31, 


32 


D3C5 


3132333435 


DB 


49,50,51,52,53,54,55, 


56 


D3CD 


090A0B0C0D 


DB 


9,10,11,12,13,14,15,16 


D3D5 


2122232425 


DB 


33,34,35,36,37,38,39, 


40 


D3DD 


393A3B3C3D 


DB 


57,58,59,60,61,62,63, 


64 


D3E5 


1112131415 


DB 


17,18,19,20,21,22,23, 


,24 


D3ED 


292A2B2C2D 


DB 


41,42,43,44,45,46,47 


48 



***************************************************************** 

* * 

* EACH OF THE FOLLOWING TABLES DESCRIBES A DISKETTE WITH THE * 

* SPECIFIED CHARACTERISTICS. * 

* * 
***************************************************************** 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



D3F5 1A00 



DPB128S DW 



26 



;CP/M SECTORS/TRACK 
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D3F7 


03 


D3F8 


07 


D3F9 


00 


D3FA 


F200 


D3FC 


3F00 


D3FE 


C0 


D3FF 


00 


D400 


1000 


D402 


0200 


D404 


01 



DB 


3 


DB 


7 


DB 





DW 


242 


DW 


63 


DB 


0C0H 


DB 





DW 


16 


DW 


2 


DB 


1H 



BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* ( 

LOG 2 

8 IF 



(#CPM SECTORS/ PHYSICAL SECTOR) -1) 
(#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 
***************************************************************** 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 

************************************************* 

* "■ *' 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 
************************************** **************** *********** 



D405 


3400 


DPB256S DW 


52 


D407 


04 


DB 


4 


D408 


0F 


DB 


15 


D409 


00 


DB 





D40A 


F200 


DW 


242 


D40C 


7F00 


DW 


127 


D40E 


C0 


DB 


0C0H 


D40F 


00 


DB 





D410 


2000 


DW 


32 


D412 


0200 


DW 


2 


D414 


12 


DB 


12H 



-1) + 



D415 3C00 


DPB512S DW 


60 


D417 04 


DB 


4 


D418 0F 


DB 


15 


D419 00 


DB 





D41A 1801 


DW 


280 


D41C 7F00 


DW 


127 


D41E C0 


DB 


0C0H 


D41F 00 


DB 





D420 2000 


DW 


32 


D422 0200 


DW 


2 


D424 33 


DB 


33H 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* (( 

LOG2( 

8 IF 



#CPM sectors/physical SECTOR) -1) + 
#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 



***************************************************************** 



CP/M MACRO ASSEM 2.0 #036 *** Cbios For CP/M Ver. 2.2 *** 



* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



D425 4000 


DP1024S DW 


64 


D427 04 


DB 


4 


D428 0F 


DB 


15 


D429 00 


DB 





D42A 2B01 


DW 


299 


D42C 7F00 


DW 


127 


D42E C0 


DB 


0C0H 


D42F 00 


DB 





D430 2000 


DW 


32 


D432 0200 


DW 


2 


D434 74 


DB 


74H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 

LOG2(# BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



D435 3400 


DPB128D DW 


52 


D437 04 


DB 


4 


D438 0F 


DB 


15 


D439 01 


DB 


1 


D43A F200 


DW 


242 


D43C 7F00 


DW 


127 


D43E C0 


DB 


0C0H 


D43F 00 


DB 





D440 2000 


DW 


32 


D442 0200 


DW 


2 


D444 09 


DB 


9H 



;CP/M SECTORS/TRACK 

;BSH 

;BLM 

;EXM 

;DSM 

?DRM 

';AL0 

;AL1 

;CKS 

? OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* s ■" * 

***************************************************************** 



D445 6800 


DPB256D DW 


104 


D447 04 


DB 


4 


D448 0F 


DB 


15 


D449 00 


DB 





D44A E601 


DW 


486 


D44C FF00 


DW 


255 


D44E F0 


DB 


0F0H 


D44F 00 


DB 





D450 4000 


DW 


64 


D452 0200 


DW 


2 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



CP/M MACRO ASSEM 2.0 #037 *** Cbios For CP/M Ver. 2.2 *** 
D454 1A DB 1AH 

***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



D455 7800 


DPB 51 2D DW 


120 


D457 04 


DB 


4 


D458 0F 


DB 


15 


D459 00 


DB 





D45A 3102 


DW 


561 


D45C FF00 


DW 


255 


D45E F0 


DB 


0F0H 


D45F 00 


DB 





D460 4000 


DW 


64 


D462 0200 


DW 


2 


D464 3B 


DB 


3BH 



yCP/M SECTORS/TRACK 

;BSH 

yBLM 

;EXM 

;DSM 

;DRM 

?AL0 

?AL1 

;CKS 

rOFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



D465 8000 


DP1024D DW 


128 


D467 04 


DB 


4 


D468 0F 


DB 


15 


D469 00 


DB 





D46A 5702 


DW 


599 


D46C FF00 


DW 


255 


D46E F0 


DB 


0F0H 


D46F 00 


DB 





D470 4000 


DW 


64 


D472 0200 


DW 


2 


D474 7C 


DB 
ENDIF 


7CH 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* THE FOLLOWING DPB DEFINES A ,*0 MEGABYTE HARD DISK, WITH 512 * 

* BYTE SECTORS. * 

* * 

***************************************************************** 







IF 


MAXHD 


NE 








IF 


M26 NE 







D475 0004 


DPBHD1 


DW 


1024 




;CP/M SECTORS/TRACK 


6477 05 




DB 


5 




?BSH 


D478 IF 




DB 


31 




;BLM 


D479 01 




DB 


1 




?EXM 


D47A B507 




DW 


1973 




yDSM 


D47C FF01 




DW 


511 




;DRM 



CP/M macro ASSEM 2.0 



#038 



*** Cbios For CP/M Ver. 2.2 *** 



D47E 


FF 


D47F 


FF 


D480 


0000 


D482 


0100 


D484 


33 


D485 


0004 


D487 


05 


D488 


IF 


D489 


01 


D48A 


B507 


D48C 


FF01 


D48E 


FF 


D48F 


FF 


D490 


0000 


D492 


4000 


D494 


33 


D495 


0004 


D497 


05 


D498 


IF 


D499 


01 


D49A 


B507 


D49C 


FF01 


D49E 


FF 


D49F 


FF 


D4A0 


0000 


D4A2 


7F00 


D4A4 


33 



DPBHD2 



DPBHD3 



DPBHD1 



DPBHD2 



DB 


0FFH ; 


AL0 


DB 


0FFH ; 


AL1 


DW 


; 


CKS 


DW 


1 ; 


OFF 


DB 


33H ; 


16*(( 
LOG2( 
8 IF 


DW 


1024 ; 


CP/M 


DB 


5 ; 


BSH 


DB 


31 ; 


BLM 


DB 


1 ; 


EXM 


DW 


1973 ; 


DSM 


DW 


511 i 


•DRM 


DB 


0FFH j 


•AL0 


DB 


0FFH 


•AL1 


DW 





•CKS 


DW 


64 


'OFF 


DB 


33H j 


•16*(( 
•LOG2( 
•8 IF 


DW 


1024 ; 


•CP/M 


DB 


5 


•BSH 


DB 


31 


•BLM 


DB 


1 


rEXM 


DW 


1973 


•DSM 


DW 


511 


•DRM 


DB 


0FFH 


•AL0 


DB 


0FFH 


?AL1 


DW 





•CKS 


DW 


127 


;OFF 


DB 


33H 


•16*(( 
•LOG2( 
•8 IF 


ENDIF 






IF 


M10 NE 




DW 


336 j 


•CP/M 


DB 


5 


•BSH 


DB 


31 


•BLM 


DB 


1 


•EXM 


DW 


1269 


•DSM 


DW 


511 


•DRM 


DB 


0FFH 


•AL0 


DB 


0FFH 


•AL1 


DW 





•CKS 


DW 


1 


rOFF 


DB 


33H 


rl6*(( 
•LOG2( 
•8 IF 


DW 


336 


rCP/M 


DB 


5 


?BSH 


DB 


31 


•BLM 


DB 


1 


•EXM 


DW 


1280 


rDSM 


DW 


511 


?DRM 


DB 


0FFH 


?AL0 



#CPM SECTORS/PHYSICAL SECTOR) -1) + 
#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 
SECTORS/ TRACK 



#CPM SECTORS/PHYSICAL SECTOR) -1) + 
!#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 

SECTORS/ TRACK 



[#CPM SECTORS/ PHYSICAL SECTOR) -1) 
MBYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 



SECTORS/ TRACK 



;#CPM SECTORS/ PHYSICAL SECTOR) -1) 
#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 
SECTORS/ TRACK 



CP/M macro ASSEM 2.0 



#039 



*** Cbios For CP/M Ver. 2.2 *** 



DB 


0FFH 


DW 





DW 


122 


DB 


33H 


ENDIF 




IF 


M20 NE 


DPBHD1 DW 


672 


DB 


5 


DB 


31 


DB 


1 


DW 


2015 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


1 


DB 


3 3H 


DPBHD2 DW 


672 


DB 


5 


DB 


31 


DB 


1 


DW 


2015 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


98 


DB 


3 3H 



;AL1 

;CKS 

;OFF 

;16*((#CPM SECTORS/ PHYSICAL SECTOR) 

;LOG2(#BYTES PER SECTOR/128) + 1 + 

;8 IF DOUBLE SIDED. 



•1) + 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* ( 

LOG 2 

8 IF 

CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* ( 

LOG 2 

8 IF 



SECTORS/ TRACK 



(#CPM SECTORS/PHYSICAL SECTOR) -1 ) 
(#BYTES PER SECTOR/128) + 1 + 

DOUBLE SIDED. 

SECTORS/ TRACK 



(#CPM SECTORS/PHYSICAL SECTOR) -1) 
(#BYTES PER SECTOR/128) + 1 + 
DOUBLE SIDED. 



DP3HD3 



DW 


672 


DB 


5 


DB 


31 


DB 


1 


DW 


1028 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


195 


DB 


33H 


ENDIF 




ENDIF 





CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* (( 

LOG2( 

8 IF 



SECTORS/ TRACK 



#CPM SECTORS/ PHYSICAL SECTOR) -1) + 
#BYTES PER SECTOR/128) + 1 + 
DOUBLE SIDED. 



***************************************************************** 

* * 

* CP/M DISK PARAMETER HEADERS, UNITIALIZED. * 

* ■ * 

***************************************************************** 



CP/M macro ASSEM 2.0 



#040 



*** Cbios For CP/M Ver. 2.2 *** 



HEADER 



D4A5 = 
0000 # 



DPBASE 
DN 



DN 

DN 



DN 



DN 



DN 



D4A5+0000 

D4A7+0000000000 

D4AD+FFD8 

D4AF+0000 

D4B1+CAD9 

D4B3+7FD9 

D4B5+0000 

D4B7+0000000000 

D4BD+FFD8 

D4BF+0000 

D4C1+55DA 

D4C3+0ADA 



DN 
DN 

DN 



D4C 5+0000 
D4C7+0000000000 



MACRO 

DW 

DW 

DW 

DW 

DW 

DW 

ENDM 

EQU 

SET 

IF 

REPT 

HEADER 

SET 

HEADER 

SET 

IF 

HEADER 

SET 

ENDIF 

ENDM 

REPT 

HEADER 

SET 

ENDM 

ELSE 

REPT 

HEADER 

SET 

ENDM 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

REPT 

HEADER 

SET 

HEADER 

SET 

IF 

HEADER 

SET 

ENDIF 

ENDM 

DW 

DW 



ND,DPB 



0,0,0 

DIRBUF 

DPB 

CSV&ND 

ALV&ND 



TRANSLATION TABLE FILLED IN LATER 

; SCRATCH 

; DIRECTORY BUFFER 

;DPB FILLED IN LATER 

; DIRECTORY CHECK VECTOR 

rALLOCATION VECTOR 



$ 



FIRST 

MAXHD 

%DN, DPBHD1 ; 

DN+1 

%DN, DPBHD2 

DN+1 

(M26 NE 0) OR (M20 NE 0) 

%DN,DPBHD3 

DN+1 



MAXFLOP 

%DN,0 

DN+1 



.•GENERATE HARD DISK DPH'S FOLLOWED 
; BY FLOPPY DPH'S 



MAXFLOP 

%DN,0 

DN+1 

0< 
0,0,0 

DIRBUF 



CSV0 

ALV0 



0,0,0 

DIRBUF 



CSV1 

ALV1 

MAXHD 

%DN,DPBHD1 

DN+1 

%DN,DPBHD2 

DN+1 

(M26 NE 0) OR 

%DN,DPBHD3 

DN+1 




0,0,0 



? GENERATE FLOPPY DPH'S FOLLOWED BY 
; HARD DISK DPH'S 



; TRANSLATION TABLE FILLED IN LATER 

? SCRATCH 

; DIRECTORY BUFFER 

;DPB FILLED IN LATER 

; DIRECTORY CHECK VECTOR 

rALLOCATION VECTOR 

; TRANSLATION TABLE FILLED IN LATER 

; SCRATCH 

; DIRECTORY BUFFER 

;DPB FILLED IN LATER 

S DIRECTORY CHECK VECTOR 

.•ALLOCATION VECTOR 



(M20 NE 0) 



; TRANSLATION TABLE FILLED IN LATER 
.•SCRATCH 



CP/M MACRO ASSEM 2.0 #041 *** Cbios For CP/M Ver. 2.2 *** 



D4CD+FFD8 


DW 


DIRBUF 


D4CF+75D4 


DW 


DPBHD1 


D4D1+8CDB 


DW 


CSV2 


D4D3+95DA 


DW 


ALV2 


D4D5+0000 


DW 





D4D7+0000000000 


DW 


0,0,0 


D4DD+FFD8 


DW 


DIRBUF 


D4DF+85D4 


DW 


DPBHD2 


D4E1+83DC 


DW 


CSV3 


D4E3+8CDB 


DW 


ALV3 


D4E5+0000 


DW 





D4E7+0000000000 


DW 


0,0,0 


D4ED+FFD8 


DW 


DIRBUF 


D4EF+95D4 


DW 


DPBHD3 


D4F1+7ADD 


DW 


CSV4 


D4F3+83DC 


DW 
ENDIF 


ALV4 



DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 



***************************************************************** 

* * 

* 
* 
***************************************************************** 



* CBIOS RAM LOCATIONS THAT DON'T NEED INITIALIZATION. 
* 



D4F5 


0000 


CPMSEC 


DW 





D4F7 


00 


CPMDRV 


DB 





D4F8 


00 


CPMTRK 


DB 





D4F9 


0000 


TRUESEC 


DW 





D4FB 


00 


BUFDRV 


DB 





D4FC 


00 


BUFTRK 


DB 





D4FD 


0000 


BUFSEC 


DW 





D4FF 


= 


BUFFER 


EQU 


$ 



;CP/M SECTOR # 

;CP/M DRIVE # 

yCP/M TRACK # 

;DISK JOCKEY SECTOR THAT CONTAINS CP/M SECTOR 

? DRIVE THAT BUFFER BELONGS TO 

; TRACK THAT BUFFER BELONGS TO 

; SECTOR THAT BUFFER BELONGS TO 



***************************************************************** 

* * 

* SIGNON MESSAGE OUTPUT DURING COLD BOOT. * 

* * 
***************************************************************** 



HEXNUM MACRO 
IF 
DB 

ELSE 
DB 

ENDIF 
IF 
DB 

ELSE 
DB 

ENDIF 
ENDM 



NUM 

(NUM/16) > 9 

(NUM/16 AND 0FH) + 'A' - 10 

(NUM/16 AND 0FH) + '0' 

(NUM AND 0FH) > 9 

(NUM AND 0FH) + 'A' - 10 

(NUM AND 0FH) + '0' 



D4FF 0D0A0A PROMPT DB 

D502 4D6F72726F DB 

D511 35 DB 

D512 36 DB 



ACR,ALF,ALF 
'Morrow Designs ' 
•0*+MSIZE/l0 
'0'+(MSIZE MOD 10) 



;CP/M MEMORY SIZE 



cp/m MACRO ASSEM 2.0 



#042 *** Cbios For CP/M Ver. 2.2 *** 

;CP/M VERSION NUMBER 



D513 


4B2043502F 


DB 


'K CP/M ' 




D51A 


32 


DB 


CPMREV/l0+'0' 




D51B 


2E 


DB 


■ f 

• 




D51C 


32 


DB 


(CPMREV MOD 10)+' 


0' 


D51D 


2C20436269 


DB 


' , Cbios rev ' 




D529 


322E 


DB 


REVNUM/l0+'0' 




D52B 


38 


DB 
IF 


REVNUM MOD 10+'0' 
MAXHD NE 




D52C 


2E 


DB 


1 1 

* 




D52D 


32 


DB 


MREV/l0+'0' 




D52E 


36 


DB 


MREV MOD 10+' 0* 








IF 


(M10 OR M20) AND 


SDELAY 






DB 


•m* 








ENDIF 










IF 


(M10 OR M20) AND 


NOT SD 






DB 


•P' 








ENDIF 










ENDIF 






D52F 


0D0A 


DB 


ACR,ALF 




D531 


466F7220 


DB 
IF 


'For ' 
MAXFLOP NE 




D535 


6120446973 


DB 


*a Disk Jockey 2D @ * 






HEXNUM 


% (ORIGIN/256) 




D548+45 


DB 


(224/16 AND 0FH) 


+ 'A' 


D549+30 


DB 


(224 AND 0FH) + 


0' 


D54A 


30304820 


DB 
ENDIF 


'00H ' 








IF 


(MAXHD NE 0) AND 


(MAXFL 


D54E 


616E6420 


DB 
ENDIF 

IF 
IF 


•and ' 

MAXHD NE 
MAXHD EQ 1 




D552 


616E20 


DB 

ENDIF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

IF 


'an ' 

MAXHD EQ 2 
'two ' 

MAXHD EQ 3 
' three ' 

MAXHD EQ 4 
'four * 

MREV EQ 10 
•M10 ' 

MREV EQ 20 
'M20 ' 

MREV EQ 26 




D555 


4D323620 


DB 
ENDIF 


'M26 * 




D559 


6861726420 


DB 


'hard disk' 





;CBIOS REVISION NUMBER 



- 10 



CP/M MACRO ASSEM 2.0 #043 



**■* Cbios For CP/M Ver. 2.2 *** 
MAXHD NE 1 



•s' 



D562 204020 



D565+35 


DB 


D566+30 


DB 


D567 482E 


DB 




ENDIF 


D569 0D0A 


DB 


D56B 0D0A 


DB 


D56D 2020202020 


DB 


D587 0D0A 


DB 


D589 2020202020 


DB 


D5A5 0D0A 


DB 


D5A7 2020202020 


DB 


D5C2 0D0A 


DB 


D5C4 00 


DB 



IF 

DB 

ENDIF 

DB ' @ ' 

HEXNUM %HDORG 

(80/16 AND 0FH) + '0' 

(80 AND 0FH) + '0' 

'H.' 

ACR,ALF 
ACR,ALF 

THE W6GO/K6HHD LIST' 
ACR,ALF 

' Electronics Enterprises' 
ACR, ALF 

' Rio Linda, California' 

ACR, ALF 



***************************************************************** 

* * 

* UTILITY ROUTINE TO OUTPUT THE MESSAGE POINTED AT BY H&L, * 

* TERMINATED WITH A NULL. * 

* * 

************************************************************** 

GET A CHARACTER OF THE MESSAGE 

BUMP TEXT POINTER 

TEST FOR END 

RETURN IF DONE 

SAVE POINTER TO TEXT 

OUTPUT CHARACTER IN C 

OUTPUT THE CHARACTER 

RESTORE THE POINTER 

CONTINUE UNTIL NULL REACHED 

***************************************************************** 

* * 

* CBOOT IS THE COLD BOOT LOADER. ALL OF CP/M HAS BEEN LOADED IN * 

* WHEN CONTROL IS PASSED HERE. * 

* * 

***************************************************************** 



D5C5 7E 


MESSAGE MOV 


A,M 


D5C6 23 


I NX 


H 


D5C7 A7 


ANA 


A 


D5C8 C8 


RZ 




D5C9 E5 


PUSH 


H 


DSC A 4F 


MOV 


C,A 


D5CB CD0CCD 


CALL 


COUT 


D5CE El 


POP 


H 


D5CF C3C5D5 


JMP 


MESSAGE 



D5D2 310001 

D5D5 3EC0 
D5D7 320300 
D5DA CD30CE 

D5DD 21FFD4 
D5E0 CDC5D5 
D5E3 AF * 
D5E4 32F7D4 
D5E7 320400 



CBOOT LXI 



SP, TPA 



MVI 


A, INTIOBY 


STA 


IOBYTE 


CALL 


TINIT 


LXI 


H, PROMPT 


CALL 


MESSAGE 


XRA 


" A" -> 


STA 


CPMDRV 


STA 


CDISK 



;SET UP STACK 



♦•INITIALIZE THE TERMINAL 

? PREP FOR SENDING SIGNON MESSAGE 
;SEND THE PROMPT 
? SELECT DISK A 



IF 



(MAXFLOP NE 0) AND FIRST 



CP/M MACRO ASSEM 2.0 



#044 



*** Cbios For CP/M Ver. 2.2 *** 



D5EA 2103CD 
D5ED 2201CD 
D5F0 C350CE 



STA 


FLOPFLG 


ENDIF 




LXI 


H,BIOS+3 


SHLD 


BIOS+1 


JMP 


GOCPM 



D5F3 



DS 



512- ($ -BUFFER) yMAXIMUM SIZE BUFFER FOR 512 BYTE SECTORS 



D6FF 



D8FF 





IF 

6s 

ENDIF 


MAXFLOP 
512 


DIRBUF 


IF 
DS 
ENDIF 


(MAXFLOP 
128 


ALLOC 


MACRO 


ND,AL,CS 


ALV&ND 
CSV&ND 


DS 
DS 

ENDM 


AL 
CS 



;ADDITIONAL SPACE FOR FLOPPIES IK SECTORS 



; DIRECTORY BUFFER 



0000 # 



DN 



SET 











IF 


NOT FIRST 






REPT 


MAXFLOP 






ALLOC 


%DN f 75,64 




DN 


SET 
ENDM 


DN+1 


D97F+ 


ALV0 


DS 


75 


D9CA+ 


CSV0 


DS 


64 


DA0A+ 


ALV1 


DS 


75 


DA55+ 


CSV1 


DS 


64 






REPT 


MAXHD 






IF 


M26 NE 






ALLOC 


%DN, 247,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 247,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 247,0 




DN 


SET 

ENDIF 


DN+1 






IF 


Ml'0 NE 






ALLOC 


%DN, 159,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 161,0 




DN 


SET 
ENDIF 


DN+1 ' 






IF 


M20 NE 






ALLOC 


%DN, 252,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 252,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 129,0 




DN 


SET 

ENDIF 

ENDM 


DN+1 
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DA95+ 


ALV2 


DS 


247 


DB8C+ 


CSV2 


DS 





DB8C+ 


ALV3 


DS 


247 


DC83 + 


CSV3 


DS 





DC83+ 


ALV4 


DS 


247 


DD7A+ 


CSV4 


DS 
ELSE 









REPT 


MAXHD 






IF 


M26 NE 






ALLOC 


%DN, 247,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 247,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 247,0 




DN 


SET 
ENDIF 


DN+1 






IF 


M10 NE 






ALLOC 


%DN, 159,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 161,0 




DN 


SET 
ENDIF 


DN+1 






IF 


M20 NE 






ALLOC 


%DN, 252,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 252,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 129,0 




DN 


SET 

ENDIF 

ENDM 


DN+1 






REPT 


MAXFLOP 






ALLOC 


%DN,75,64 




DN 


SET 

ENDM 
ENDIF 


DN+1 


DD7A 




END 





'J>J>?£ 
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0006 


AACK 


D227 


ACCOK 


000D 


ACR 


0003 


AETX 


000A 


ALF 


D97F 


ALV0 


DA0A 


ALV1 


DA95 


ALV2 


DB8C 


ALV3 


DC83 


ALV4 


CEA3 


AUTOFLG 


BF00 


BDOS 


9000 


BIAS 


CD00 


BIOS 


D4FB 


BUFDRV 


0080 


BUFF 


D4FF 


BUFFER 


D4FD 


BUFSEC 


D4FC 


BUFTRK 


D105 


BUFWRTN 


D31B 


BUILD 


D5D2 


CBOOT 


B700 


CCP 


0004 


CDISK 


CE0B 


CICRT 


CE0B 


CIPTR 


CD88 


CITBLE 


E003 


CITTY 


CDF6 


CIUC1 


CE0B 


CIUR1 


CE0B 


CIUR2 


CE9B 


CLDBOT 


CE86 


CLDCMND 


0019 


CLEAR 


CDC8 


COCRT 


CEA4 


COLDBEG 


CEB2 


COLDEND 


CDCC 


COLPT 


0004 


COMPLT 


CD42 


CONIN 


CD48 


CONIN1 


CD57 


CONOUT 


CD36 


CONST 


CDCC 


COPTP 


CE3E 


COPTR 


CE45 


COPTR1 


CD90 


COTBLE 


E006 


COTTY 


CDD7 


COUL1 


CDF5 


COUNT 


CDCC 


COUP1 


CDCC 


COUP2 


CD0C 


COUT 


D0E5 


CPMDMA 


D4F7 


CPMDRV 


0016 


CPMREV 


D4F5 


CPMSEC 


D4F8 


CPMTRK 


CE1F 


CSCRT 


CE1F 


CSPTR 


CD3C 


CSREADR 


CDB8 


CSRTBLE 


CDB0 


CSTBLE 


CE17 


CSTTY 


CE02 


CSUC1 


CE1F 


CSUR1 


CE1F 


CSUR2 


D9CA 


CSV0 


DAS 5 


CSV1 


DB8C 


CSV2 


DC83 


CSV3 


DD7A 


CSV4 


CEA2 


CWFLG 


0008 


DBLSID 


D05E 


DCRC 


D1D9 


DECIDE 


D1D5 


DECIDGO 


D207 


DELAY 


D20A 


DELOOP 


D8FF 


DIRBUF 


D0B1 


DIVDONE 


D060 


DIVLOG 


D062 


DIVLOGX 


D0A3 


DIVLOOP 


E400 


DJBOOT 


E003 


DJCIN 


E006 


DJCOUT 


E42D 


DJDEN 


E412 


DJDMA 


CD33 


DJDRV 


E42A 


DJERR 


E409 


DJHOME 


E400 


DJRAM 


E415 


DJREAD 


E40F 


DJSEC 


E41B 


DJSEL 


E430 


DJSIDE 


E427 


DJSTAT 


E40C 


DJTRK 


E021 


DJTSTAT 


E418 


DJWRITE 


CF42 


DONOP 


D465 


DP1024D 


D425 


DP1024S 


D435 


DPB128D 


D3F5 


DPB128S 


D445 


DPB256D 


D405 


DPB256S 


D455 


DPB512D 


D415 


DPB512S 


D4A5 


DPBASE 


D475 


DPBHD1 


D485 


DPBHD2 


D495 


DPBHD3 


D326 


DRIVES 


CFF9 


DRVHD 


D310 


DRVPTR 


0020 


DRVRDY 


0007 


DSKCLK 


D0C0 


DTSLOP 


0005 


ENTRY 


D196 


FILL 


0000 


FIRST 


CFA2 


FLOPOK 


D104 


FLUSH 


D1BE 


FREAD 


D069 


GETDPB 


D25A 


GETSPT 


CE50 


GOCPM 


D277 


HDADD 


0051 


HDCMND 


0050 


HDCNTL 


0053 


HDDATA 


D322 


HDDISK 


D23A 


HDDMA 


D1E1 


HDDRV 


0052 


HDFUNC 


D1F2 


HDHOME 


0050 


HDORG 


D2DB 


HDPREP 


D25D 


HDREAD 


0051 


HDRESLT 


0004 


HDRLEN 


D248 


HDSEC 


D300 


HDSECTR 


D23F 


HDSIDE 


0020 


HDSPT 


0050 


HDSTAT 


D213 


HDTRK 


D221 


HDTRK2 


D292 


HDWRITE 


D31C 


HEAD 


CF49 


HOME 


0000 


IDBUFF 


0040 


INDEX 


D02C 


INDX1 


D033 


INDX2 


00C0 


INTIOBY 


D0F2 


INTO 


0003 


IOBYTE 


0003 


ISBUFF 


CD77 


LIST 


CD7A 


LIST1 


CD82 


LISTST 


0003 


LOGDSK 


CE28 


LSLPT 


CDC0 


LSTBLE 


CD98 


LTBLE 


0000 


M10 


0000 


M20 


0001 


M26 


0002 


MAXFLOP 


0001 


MAXHD 


00F7 


MDIR 


D5C5 


MESSAGE 


D0CF 


MOVE 


D1CA 


MOVER 


D1CC 


MOVLOP 


001A 


MREV 


E800 


MSDV 


0038 


MSIZE 


CF16 


NEWDMA 


CEF7 


NEWSEC 


D125 


NOADJST 


CF0E 


NOWRAP 


00FB 


NSTEP 


00FC 


NULL 


5A00 


OFFSETC 


0002 


OP DONE 


E000 


ORIGIN 


D0ED 


OUTOF 


CD72 


PNCH1 


Dill 


PREP 


D2C1 


PROCESS 


D4FF 


PROMPT 


0004 


PSTEP 


CDA0 


PTBLE 


CD6C 


PUNCH 


CDEC 


PWAIT 


D0E8 


RDWR 


CD62 


READER 


D091 


READ 


CD65 


READERA 


CD68 


READR1 


CE2D 


READY 


D095 


REDWRT 


000A 


RETRIES 


0002 


RETRY 


D11A 


RETRYLP 


D177 


RETRYOP 


00 1C 


REVNUM 


0001 


RSECT 


CDA8 


RTBLE 


D27D 


RTLOOP 


0005 


SCENBL 


0001 


SDELAY 


0200 


SECLEN 


D0D4 


SECPSEC 


D096 


SECSIZ 


CF50 


SECTRAN 


CD4C 


SELDEV 


CF43 


SETDMA 


CF8B 


SETDRV 


D041 


SETDRV1 


CF3D 


SETSEC 


D208 


SETTLE 


CF4B 


SETTRK 


CF66 


SIDE A 


CFE7 


SIDEOK 


CF69 


SIDEONE 


CF6F 


SIDETWO. 


D22B 


SLOOP 


CE1A 


STAT 


D1F7 


STEPO 


CFF7 


SUBFP 


D015 


TDELAY 


CE30 


TINIT 


0001 


TKZERO 


0008 


TMOUT 


0100 


TPA 


CF58 


TRANFP. 


. CF87 


TRANHD 


D4F9 


TRUESEC 


CEB3 


WARMBEG 


CEB3 


WARMEND 


CEF6 


WARMLOD 


CF2A 


WARMRD 


CD03 


W&OOTE 


CEB4 


WBOOT 


0000 


WBOT 


000F 


WENABL 


0010 


WFAULT 


CEB8 


WFLG 


00 0B 


WRESET 


D08A 


WRITE 


D0FC 


WRITTYP 


CF2D 


WRMREAD 


D240 


WSDONE 


0005 


WSECT 


D29E 


WTLOOP 


D3B4 


XLT124 


D327 


XLT128 


D342 


XLT256 


D377 


XLT512 


D082 


XLTS 


D2FF 


ZKEY 


D05A 


ZRET 















